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ABSTRACT 


Software  engineers  in  general,  and  the  Department  of  Defense  in  particular,  are 
looking  for  good  software  metrics  to  aid  in  software  development.  Maurice  Halstead 
developed  the  theory  of  Software  Science  which  includes  the  relation  between  program 
complexity  and  program  length.  Halstead's  length  metric  deals  with  the  properties  jf 
an  algorithm  that  can  be  measured,  either  directly  or  indirectly,  statically  :r 
dynamically,  and  with  the  relationships  among  these  properties.  A  system  has  been 
developed  which  implements  Halstead's  length  metric.  This  system,  which  is  written  in 
Ada,  takes  Ada  programs  as  input,  and  outputs  the  length  metric  complexity  analysis. 
Finailv.  recommendations  for  future  work  in  this  area  are  made. 


Accesion  For  j 

NTIS  CR.A&I 

ti 

DT|C  TAB 

□ 

Un.mrn::  .cod 

□ 

Ji.-  t-t.C-.it  0  i 

i 

. . . i 

3y  . 1 

Ui.t  ib  diO!'.  1  j 

Av;iiljb:  l 

y  Code:. 

j  A  v  J 

j.'d  /  or 

O'  t 

v-  r 

1 

i 

TABLE  OF  CONTENTS 


INTRODUCTION  AND  BACKGROUND  . 7 

A.  CONCERNS . 7 

B.  available  metrics . s 

C.  HALSTEAD . .0 

D.  OUR  METRIC . 11 

DEVELOPING  AN  ADA  GRAMMAR . 13 

A.  INTRODUCTION . 13 

B.  GRAMMAR  FOR  THE  ADA  LANGUAGE  . M 

LEXICAL  ANALYZER  . IS 

A.  INTRODUCTION . IS 

3.  TOKENS . IS 

1.  Identifiers . 19 

2.  String  Literal  . 19 

3.  Character  Literals  . 20 

4.  Comments  . 21 

5.  Separators . 21 

6.  Delimiters . 22 

7.  Numeric  Literal  . 23 

C.  TOKEN  USE  . 23 

PARSER  . 26 

A.  INTRODUCTION . 26 

B.  TOP-DOWN  RECURSIVE  DESCENT  PARSING  . 27 

ADAMEASURE  . 29 

A.  INTRODUCTION . 29 

B.  DATA  COLLECTION . 29 

1.  Halstead  Data  . 29 


4 


2.  Comment  Data  . 

3.  Nesting  Data  . 

VI.  CONCLUSIONS  . 

A.  METRICS . 

B.  IMPLEMENTATION . 

C.  THE  FUTURE . 

APPENDIX  A:  MODIFIED  ADA  GRAMMAR . 

APPENDIX  B:  'ADAMEASURE'  USERS  GUIDE . 

APPENDIX  C:  ADAMEASURE'  PROGRAM  LISTING  -  PART  I 
APPENDIX  D:  ADAMEASURE'  PROGRAM  LISTING  -  PART  2 
APPENDIX  E:  ADAMEASURE'  PROGRAM  LISTING  -  PART  3 

LIST  OF  REFERENCES . 

INITIAL  DISTRIBUTION  LIST . 


LIST  OF  FIGURES 


3.1  Finite  State  Machine  for  Identifiers . 19 

3.2  Finite  State  Machine  for  String  Literals . 20 

3.3  Finite  State  Machine  for  Character  Literals  . 20 

3.4  Finite  State  Machine  for  Comments  . 21 

3.5  Finite  StateMacnine  for  Separators  . 22 

3.6  Finite  State  Machine  for  Delimiters . 22 

3.7  Finite  State  Machine  for  Numeric  Literals  . 24 


6 


I.  INTRODUCTION  AND  BACKGROUND 


A.  CONCERNS 

With  computer  software  programs  getting  larger  and  larger  all  the  time,  the 
search  is  on  for  accurate  and  dependable  aids  for  the  developer  to  increase  the 
productivity  and  efficiency  of  software  engineering  efforts.  New  tools  and  new 
methodologies  ire  being  sought  in  the  effort  to  alleviate  the  "software  crisis'.  This 
crisis,  stated  specifically,  is  that  software  is  being  delivered  late,  over  budget, 
specifications  are  not  being  met.  modifications  are  difficult  and  expensive,  unresponsive 
to  user  needs,  and  unreliable. 

Recently,  it  was  reported  that  software  costs  are  growing  at  the  rate  of  15%  per 
year  while  productivity  is  increasing  at  less  than  3%  [Ref.  1:  p.  151.  Barn-  Boehm,  a 
leading  computer  expert,  asserted  more  than  10  years  ago  that,  in  the  military 
application  area,  the  cost  of  software  was  expected  to  'each  about  $0%  of  the  total 
computer  system  budget  by  the  year  1985  Ref.  2:  p.l|.  His  assertion  now  seems  valid 
[Ref.  3[.  Furthermore  it  appears  mat  up  to  o0%  of  the  total  software  budget  for  ail 
organizations  using  computers  is  being  devoted  to  maintenance  [Ref.  2:  p.2J.  The 
Office  of  Naval  Research  and  other  Defense  Research  agencies  are  aware  of  these 
increasing  costs.  They  are  also  accutely  aware  of  the  lack  of  quantitative  measurement 
techniques  which  are  desperately  needed  for  assessing  the  quality  and  reliability  of 
software  as  well  as  for  the  prediction  and  measurement  of  software  production 
[Ref.  1:  p.14].  Further  evidence  of  this  universal  concern  comes  from  a  General 
Accounting  Office  report  of  June  78  on  managing  weapons  systems.  It  stated  that  there 
exists  no  Department  of  Defense  performance  criteria  to  measure  software  quality  and 
to  establish  a  basis  for  its  acceptance  or  rejection  [Ref.  I:  p.l5|.  The  Secretary  of 
Defense's  response  was  brief  and  candid, 

We  concur.  We  resret  and  underscore  the  importance  of  the  need.  The 
Department  of  Defense  will  quicklv  embrace  such  measures  when  they  are 
available. 

The  current  Office  of  Naval  Research  (ONR)  initiative  to  focus  on  software 
measurement  is  a  result  of  the  need  for  such  metrics  and  the  high  level  of  interest  that 


the  Secretary  of  Defense  brings  to  bear.  The  ONR  initiatives,  stated  specifically,  are: 
developing  indices  of  merit  that  can  support  quantitative  comparisons  and  evaluations; 
designing  a  philosophical  framework  for  understanding  and  defining  software 
measurement;  and  focusing  the  attention  of  the  scientific  community  on  computer 
software.  [Ref.  1:  p.  I  5]. 

B.  AVAILABLE  METRICS 

Software  metrics  are  often  classified  as  either  process  metrics  or  product  metrics, 
and  are  applied  to  either  the  development  process  or  the  software  product  being 
developed  [Ref.  2:  p.  19).  Process  metrics  include  resource  metrics,  such  as  die 
experience  of  programmers,  and  the  cost  of  development  and  maintenance.  Examples 
of  metrics  for  the  levels  of  personnel  experience  are  the  number  of  years  that  a  team 
has  been  using  a  programming  language,  the  number  of  years  that  a  programmer  has 
been  with  the  organization,  the  number  of  years  that  a  programmer  has  been 
associated  with  a  programming  team,  and  the  number  of  years  of  experience 
constructing  simiiiar  software  .'Ref.  2:  p.  19|.  Other  factors  considered  in  process  metric 
measurement  are  development  rechniuues  « the  use  of  top-down  or  bottom-. in 
developme*  techniques,  and  structured  programming;,  supervisory  techniques  <  such  as 
type  of  team  organization  and  number  of  communication  paths),  and  resources 
(human,  computer,  time  schedule,  and  so  on)  [Ref.  2:  p.20].  Product  metrics,  on  the 
other  hand,  are  a  measure  of  the  software  product.  Product  metrics  include  the  size  of 
the  product  (such  as  number  oflii.es  of  code  or  some  count  of  tokens  in  the  program), 
the  logic  structure  complexity  (such  as  flow  of  control,  depth  of  nesting,  or  recursion), 
the  data  structure  complexity  (such  as  the  number  of  variables  used),  the  function 
(such  as  type  of  software:  business,  scientific,  systems,  and  so  on),  and  combinations  of 
these  [Ref.  2:  p. 20], 

The  emphasis  in  this  thesis  will  be  on  product  metrics  to  the  total  exclusion  of 
process  metric  issues.  We  are  interested  in  analyzing  the  static  program,  or  product,  in 
our  effort  to  provide  an  automated  tool. 

There  are  a  variety  of  different  quantitative  software  metrics  in  use  today.  In  an 
important  paper  by  Boehm  [Ref.  4],  an  attempt  is  made  to  define  software  quality  in 
terms  of  some  high  level  characteristics  such  as  reliability,  portability,  efficiency, 
human  engineering,  testability,  understandability,  and  modifiability.  If  we  can  define 
these  characteristics,  noting  that  a  precise  subjective  definition  is  difficult  to  achieve. 


and  measure  these  characteristics  with  some  precision,  we  could  strive  to  maximize 
each  of  these  characteristics  [Ref.  2:  p.7].  There  are  some  difficulties  here.  First,  some 
of  the  characteristics  are  potentially  contradictory.  For  example,  improvements  in 
portability  and  understandabilitv  usually  result  in  decreased  efficiency  [Ref.  2:  p.7). 
Secondly,  there  are  significant  cost  benefit  tradeoffs.  For  example,  the  cost  of 
producing  highly  reliable  code  may  be  several  times  more  costly,  in  terms  of  time  and 
or  money,  than  for  less  reliable  code  [Ref.  2:  p.7]. 

The  measurement  of  software  complexity  is  receiving  increased  attention  in 
recent  years.  Complexity  has  been  a  loosely  defined  term  but  Bill  Curtis  defined 
complexity  to  be  a  characteristic  of  the  software  interface  which  influences  the 
resources  another  system  will  expend  or  commit  while  interfacing  with  the  software 
[Ref.  5].  Two  separate  and  distinct  focuses  have  emerged  in  studying  software 
complexity:  computational  and  psychological  complexity  [Ref.  1:  p.208]. 
Computational  complexity  relies  on  the  formal  mathematical  analysis  of  such  problems 
as  algorithm  efficiency  and  use  of  machine  resources.  In  contrast,  the  empirical  study 
of  psychological  complexity  has  emerged  from  the  understanding  that  software 
development  and  maintenance  are  largely  human  activities.  Psychological  complexity  :s 
concerned  with  the  characteristics  of  software  which  affect  programmer  performance 
[Ref.  1:  p.208].  This  thesis  will  focus  entirely  on  program  complexity  in  an  effort  to 
provide  a  representative  metric  from  selected  quantitative  measures. 

There  are  a  variety  of  complexity  metrics  available  and  we  will  briefly  highlight  a 
few  of  them.  A  number  of  metrics  having  a  base  in  graph  theory  have  been  proposed 
to  measure  complexity  from  control  flow  [Ref.  1:  p.210].  Thomas  McCabe  devised  one 
of  the  better  known  complexity  metrics  in  relation  to  the  decision  structure  of  a 
program  [Ref.  6],  McCabe  argues  that  his  metric  assesses  the  difficulty  of  testing  a 
program,  since  it  is  a  representation  of  the  control  paths  that  must  be  exercised  during 
testing  [Ref.  1:  p.2 10].  Victor  Basili  and  Robert  Reiter  [Ref.  7],  have  developed 
different  counting  methods  for  computing  cyclomatic  complexity  by  counting  rules  for 
case  statements  and  compound  predicates  [Ref.  1:  p.2 10].  Definitive  data  on  the  most 
effective  counting  rules  has  yet  to  be  presented.  The  best  known  and  most  thoroughly 
studied  of  the  composite  measures  of  complexity  is  Halstead's  theory  of  Software 
Science  [Ref.  1 :  p. 2 1 1  ].  In  1972,  Maurice  Halstead  argued  that  algorithms  have 
measurable  characteristics  analogous  to  physical  laws.  We  will  focus  this  thesis  on 
Halstead's  theory  as  the  representative  metric  we  implement.  We  will  first  look  at 
Halstead's  theory. 


C.  HALSTEAD 

Halstead's  software  science  theory'  applies  the  scientific  method  to  the  properties 
and  structure  of  computer  programs.  It  attempts  to  provide  precise,  objective 
measures  of  the  complexity  of  existing  software,  which  is  then  used  to  predict  the 
length  of  the  programs  [Ref.  9:  p.3].  Numerous  statistical  studies  have  shown  very 
high  correlations  between  the  theory's  predictions  and  actual  program  measures  such 
as  mean  number  of  bugs  [Ref.  S:  p.SSj.  Halstead  defined  four  basic  measures: 

1.  nl  :  The  number  of  distinct  operators  appearing  in  a  program. 

2.  n2  :  The  number  of  distinct  operands  appearing  in  a  program. 

3.  NT  :  The  total  number  of  occurences  of  the  operators  in  a  program. 

4.  N2  :  The  total  number  of  occurences  of  the  operands  in  a  program. 

Halstead  defined  the  size  of  the  vocabulary  to  be  the  operators  plus  the  operands 

as  in  Equation  1.1. 

n  =  nl  •+■  n2  lean  1.1 ) 

Halstead  s  theory  [Ref.  S:  p. 1 1 1,  says  that  actual  program  length  can  be 
calculated  by  adding  the  totai  number  of  operand  references  with  the  total  number  of 
operator  references  as  in  Equation  1.2. 


N  =  NT  +  N2  (eqn  1.2) 

Halstead,  using  information  theory,  computes  the  theoretical  length  or  predicted 
length  as  in  Equation  1.3. 

N  =  nl  *  (log,  (nl))  +  n2  *  (Iog2  (n2))  (eqn  1.3) 

Halstead  also  speaks  of  program  volume  as  in  Equation  1.4. 

V  =  N  log,  n  (eqn  1.4) 

The  intuition  is  simple.  For  each  of  the  N  elements  of  a  program,  log^  (n)  bits 
must  be  specified  to  choose  one  of  the  operators  or  operands  for  that  element,  thus, 
volume  (V)  measures  the  number  of  bits  required  to  specify  a  program  [Ref.  S:  p.  19]. 

i 
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Halstead  also  hypothesized  a  conservation  law  between  the  level  of  abstraction  and  the 
volume.  The  level  is  defined  as  the  ratio  of  potential  to  actual  volume  where  the 
potential  volume  is  the  volume  of  the  most  compact  (highest-level)  representation  of 
the  algorithm  [Ref.  8:  p.25].  Effort,  another  variable  that  Halstead  suggests,  is  a 
measure  of  the  mental  effort  required  to  create  a  program.  He  describes  effort  as  the 
ratio  of  volume  to  program  level  which  implies  that  programming  difficulty  increases  as 
the  volume  of  the  program  increases,  and  decreases  as  program  level  increases 
[Ref.  8:  p.47],  Halstead  hypothesized  that  programming  Time  1 T)  should  be  uirectiv 
proportional  to  the  Effort  (E'i  in  a  program,  as  in  Equation  1.5. 

T  =  E  S  (eqn  1.5  > 

The  constant  S  represents  the  Speed  of  a  programmer,  i.e..  the  number  of  mental 
discriminations  per  second  of  which  he.  she  is  capable  [Ref.  3:  p.48[. 

We  agree  with  Alan  Perlis.  that  regardless  of  the  empirical  support  for  many  of 
Halstead's  predictions,  the  theoretical  basis  for  his  metrics  needs  considerable  attention 
[Ref.  1:  p.214|.  Halstead,  more  than  other  researchers,  tried  to  integrate  theory  from 
both  computer  science  and  psychology.  Unfortunately,  some  of  the  psychological 
assumptions  underlying  his  work  are  difficult  to  justify  for  the  phenomena  to  which  he 
applied  them  [Ref.  1:  p.2 14].  Perlis  states,  and  again  we  agree,  that  computer  scientists 
would  do  well  to  purge  from  their  memories  the  magic  number  7  +  or  -  2,  and  the 
Stroud  number  of  18  mental  discriminations  per  second.  These  numbers  describe 
cognitive  processes  related  to  the  perception  or  retention  of  simple  stimuli,  rather  than 
the  complex  information  processing  tasks  involved  in  programming  [Ref.  1:  p.2 14], 
Broadbent  [Ref.  10],  argues  that  for  complicated  tasks  (such  as  understanding  a 
program)  the  magic  number  is  substantially  less  than  seven.  For  the  above  reasons, 
this  thesis  will  focus  on  the  actual  count  of  the  operators  and  operands  and  will  totally 
exclude  any  discussion  about  Halstead's  other  hypothesis. 

D.  OUR  METRIC 

The  metric  we  have  implemented  will  take,  as  input,  an  Ada  program  and  analyze 
this  program  with  respect  to  Halstead's  length  hypothesis.  To  properly  carry  out  this 
task,  the  input  program  must  be  decomposed  into  its  most  basic  lexical  elements,  and 
then  parsed  to  ensure  that  the  program  is  syntactically  correct.  As  the  structure  of  the 


program  is  being  validated  the  data  needed  for  metric  implementation  is  collected  and 
stored  for  later  analysis.  We  have  designed  a  generic  front-end  for  this  metric  tool 
which  means  other  metrics  can  be  added  at  a  later  date,  thus  giving  the  program  the 
ability  to  be  expanded  and  provide  a  wider  range  of  data.  We  will  cover  each  of  these 
front-end  sections  in  detail  and  describe  how  and  why  our  metric  operates. 
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II.  DEVELOPING  AN  ADA  GRAMMAR 


A.  INTRODUCTION 

The  grammar  of  a  language  specifies  the  syntax  of  the  language  and  is  used  to 
help  guide  the  translation  of  programs.  A  grammar  naturally  describes  the  hierarchial 
structure  of  many  programming  language  constructs  [Ref.  11:  p.26].  A  grammar  has 
four  components: 

1.  A  set  of  tokens,  known  as  terminal  symbols. 

2.  A  set  of  nonterminals. 

3.  A  set  of  productions  which  consists  of  a  nonterminal,  an  arrow,  and  a 
sequence  of  terminals  and  or  nonterminals. 

4.  A  designation  of  one  of  the  nonterminals  as  the  start  symbol. 

Grammars  are  classified  by  many  characteristics,  and  different  parsing  techniques 
are  more  or  less  effective  on  a  particular  class  of  grammar.  The  most  efficient  methods 
of  parsing,  top-down  and  bottom-up.  which  we  will  cover  in  chapter  four,  work  only 
on  certain  subclasses  of  grammars.  Several  of  these  subclasses,  such  as  the  LL  and 
LR  grammars,  are  expressive  enough  to  describe  most  syntactic  constructs  in 
programming  languages  [Ref.  11:  p.  160].  Parsers  implemented  by  hand  often  work 
with  LL  grammars  and  parsers  for  the  larger  class  of  LR  grammars  are  usually 
constructed  by  automated  tools.  The  first  L  in  LL  stands  for  scanning  the  input 
from  left-to-right,  the  second  L  for  producing  a  leftmost  derivation.  Conversely  the  L 
in  LR  is  again  for  left-to-right  scanning  of  the  input,  the  R  for  constructing  a 
rightmost  derivation  in  reverse  [Ref.  11:  p. 215].  A  grammar  that  is  LL(1)  can  be 
deterministically  parsed  with  a  top  down  left  to  right  scan  by  using  only  one  token 
lookahead.  Therefore,  an  LL(1)  grammar  has  a  parsing  table  with  no  multiply-defined 
entries.  If  the  present  parsing  table  has  multidefined  entries  an  attempt  can  be  made  to 
transform  the  grammar  by  eliminating  all  left  recursion  and  left  factoring  whenever 
possible  [Ref.  11:  p.  1 92].  There  are  some  grammars  for  which  no  amount  of  alteration 
will  yield  an  LL(1)  grammar.  Eliminating  left  recursion  and  then  left  factoring  is  easy 
to  do  but  may  make  the  resulting  grammar  hard  to  read  and  difficult  to  use  for 
translation  purposes.  These  procedures  are  covered  in  the  next  section. 

A  grammar  generates  strings  by  beginning  with  the  start  symbol  and  repeatedly 
replacing  a  nonterminal  by  the  right  side  of  a  production  for  that  nonterminal.  The 


terminal  strings  that  can  be  derived  from  the  start  symbol  form  the  language  defined 
by  the  grammar  [Ref.  11:  p.28]. 

B.  GRAMMAR  FOR  THE  ADA  LANGUAGE 

Ada  is  a  very  large  language  consequently  the  grammar  for  this  language  is  also 
very  large.  We  chose  to  use  a  top-down,  recursive-descent  parser,  which  will  be 
covered  in  greater  detail  in  chapter  four,  as  our  method  of  analyzing  our  input 
program.  We  used  the  Ada  language  as  defined  in  the  Ada  Language  Reference 
Manual  (LRM)  [Ref.  12].  Our  first  step  was  to  translate  the  Ada  language  from  the 
Backus-Naur  Form  given  in  the  Ada  Language  Reference  Manual.  In  translating  this 
grammar,  which  is  not  LL(l),  into  an  LL(l)-like  grammar,  it  was  necessary  to 
massage  the  language  description  given  in  the  manual.  Massaging  is  the  process  of 
removing  all  left  recursion  and  then  left  factoring.  Left  recursion  is  when  the  leftmost 
symbol  on  the  right  side  of  a  production  is  the  same  as  the  nonterminal  on  the  left  side 
of  the  production.  Left  recursion  must  be  eliminated  for  this  top-down,  recursive 
descent  parser  to  alleviate  the  possibility  of  infinite  looping.  It  must  be  remembered, 
this  process  does  not  guarantee  that  the  transformed  language  will  be  LL(  1).  However, 
we  must  be  sure  to  perform  transformations  that  lead  to  a  grammar  for  the  same 
language.  The  remainder  of  this  chapter  is  devoted  to  the  discussion  and  explanation 
of  how  we  massaged  the  grammar.  The  complete  grammar  used  by  our  parser  can  be 
found  in  Appendix  A.  Our  translation  key  has  terminal  symbols  as  lowercase  letters, 
non-terminal  symbols  as  uppercase  letters,  and  bold-faced  symbols  to  indicate  the 
meta-symbols  of  our  grammar. 

Once  the  initial  grammar  is  expressed  in  our  meta-symbology,  the  next  step  is  to 
remove  all  left  recursion.  Since  the  BNF  form  in  the  LRM  showed  no  left  recursion,  it 
appeared  that  this  step  would  not  be  required.  However,  there  was  one  case  of  left 
recursion  that  was  not  apparent  until  several  substitutions  of  the  productions  had  been 
made.  This  case  involved  the  production  rules  for  NAME, 
INDEXEDCOMPONENT,  SLICE,  SELECTED_COMPONENT,  ATTRIBUTE,  and 
PREFIX.  The  production  rules,  when  taken  directly  from  the  LRM,  appear  as  the 
follows: 

NAME  -->  identifier 

-->  character_literal 
-->  string_literal 
-->  INDEX  COMPONENT 


-->  SLICE 

-->  SELECTED_COMPONENT 
— >  ATTRIBUTE 


INDEXED_COMPONENT  — >  PREFIX  (EXPRESSION) 

SLICE  — >  PREFIX  (DISCRETE_RANGE ) 

SELECTED_CCMPONENT  PREFIX. SELECTOR 

ATTRIBUTE  -->  PREFIX' ATTRIBUTE_DESIGNATOR 

PREFIX  -->  NAME 

-->  FUNCTION_CALL 

When  starting  with  NAME  and  substituting  in  the  productions,  the  left  recursion 
becomes  readily  apparent.  For  example: 

NAME  SLICE  — >  PREFIX(DISCRETE_RANGE )  ==>  NAME (DISCRETE_RANGE ) 

Wre  see  that  the  following  production  exists: 

NAME  NAME  (EXPRESSION) 

Several  other  productions,  left  recursive  on  NAME,  can  be  generated  using  the  other 
rules  listed  above. 

Now  that  left  recursion  does  exist,  we  expanded  out  the  productions  listed  above 
(using  the  same  technique  previously  demonstrated)  and  combined  them  all  as 
production  rules  for  NAME.  The  production  rules  for  INDEXED_COMPONENT, 
SLICE,  SELECTEDCOMPONENT,  and  ATTRIBUTE  were  incorporated  into 
NAME  so  they  were  removed  from  our  grammar.  The  final  set  of  production  rules  for 
NAME  can  be  found  in  Appendix  A. 

The  third  step  in  massaging  our  grammar  is  left  factoring.  Our  parser  could  not 
function  with  one  token  lookahead  if  left  factoring  were  possible.  Left  factoring  is  a 
grammar  transformation  which  uses  the  basic  idea  that  if  it  is  not  clear  which  of  two 
alternative  productions  to  use  to  expand  a  nonterminal,  it  may  be  possible  to  rewrite 
the  productions  to  defer  the  decision  until  we  have  enough  of  the  input  to  make  the 
correct  decision.  To  demonstrate  this  procedure,  we  will  show  the  left  factoring  used 
on  the  productions  for  RELATION.  Taken  directly  from  the  LRM  the  production 
rules  for  RELATION  are  as  follows: 
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RELATION  -->  SIMPLE_EXPRESSION 

-->  SIMPLE_EXPRESSION  RELATIONAL_OPERATOR  SIMPLE_EXPRESSION 

-->  SIMPLE  EXPRESSION  in  RANGES 

-->  SIMPLE_EXPRESSION  not  in  RANGES 

-->  S IMPLE_EXPRE S S ION  in  TYPE_MARK 

-->  SIMPLE_EXPRESSION  not  in  TYPE_MARK 

Applying  the  rule  of  left  factoring,  a  new  nonterminal. 
SIMPLE_EXPRESSION_TAIL.  has  been  added  to  the  grammar.  The  product:  m 
ruies  for  RELATION  and  $IMPLE_ENPRESSION_TAIL  now  look  like  the 
following: 

RELATION  -->  SIMPLE_EXPRESSI ON  SIMPLE_EXFRESSION_TAIL 

S IMPLE_EXPRESS I0N_TAIL  RELATIONAL_OPERATOR  SIMPLE.EXPRESSION 

-->  in  RANGES 
-->  not  in  RANGES 
-->  in  TYPS.MARK 
-->  net  in  TYPE_MARK 

Finally,  in  attempting  to  make  our  grammar  LL(1)  it  was  necessary  to  combine 
several  similar  constructs  together  so  that  it  could  be  parsed  by  one  function  of  the 
parser.  For  example,  the  reserved  word  package  appears  in  several  instances  including 
a  package  specification,  a  package  body  declaration,  a  separate  package  body 
declaration,  a  generic  instantiation  of  a  package,  and  the  renaming  of  a  package.  In 
each  of  these  examples  the  reserved  word  package  is  used,  and  even  with  the  ablility  to 
look  ahead  one  token,  it  is  impossible  to  tell  which  form  of  the  package  construct  is 
being  utilized.  We  massaged  our  grammar  so  that  if  package  is  encountered  the 
function  PACKAGE_DECLARATION  is  called.  The  function 
PACKAGE_DECLARATION  first  checks  for  the  reserved  word  body,  indicating  a 
package  body  declaration,  or  a  separate  package  body  declaration. 
PACKAGE_DECLARATION  then  checks  for  an  identifier,  indicating  a  package 
specification,  a  generic  instantiation,  or  a  renaming  declaration.  If  body  is  present 
then  the  function  PACKAGE_BODY  is  called.  If  an  identifier  is  present  then  the 
function  PACKAGEL'NIT  is  called.  This  technique  of  decision  making  based  on 
reserved  word  or  terminal  symbol  presence  is  extended  into  the  functions 
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PACKAGE_BODY  and  PACKAGE_L'NIT  to  further  decide  which  form  of  package  is 
being  utilized.  In  essence,  we  have  expanded  the  production  rules  to  allow  each  new 
production  the  ability  to  correctly  determine,  with  one  token  lookahead,  what  the  next 
production  rule  will  be.  This  entire  process  is  also  used  for  the  different  versions  of 
procedures,  functions,  and  tasks  which  can  appear  in  an  Ada  program. 


III.  LEXICAL  ANALYZER 

A.  INTRODUCTION 

Ada  is  an  extremely  large  language,  comparable  in  size  to  PL1.  It  was  developed 
on  behalf  of  the  Department  of  Defense  for  use  in  embedded  systems  [Ref.  13:  p.\i|. 
Based  on  Pascal,  Ada  is  the  first  practical  language  to  bring  together  important 
features  such  as  data  abstraction,  multitasking,  exception  handling,  encapsulation  and 
generics  [Ref.  13:  p..\i|.  Our  design  approach  utilizes  a  division  of  labor  and  we 
separate  our  metric  into  phases  which  perform  a  single,  specific  function.  The  first  two 
phases,  lexical  analysis  and  parsing ,  combine  to  form  a  generic  front-end  machine. 
This  front-end  machine  constructs  an  intermediate  representation  of  the  source 
program.  The  information  necessary  to  implement  the  metric  is  then  collected  and 
analyzed  from  the  intermediate  form.  We  will  iook.  in  depth,  at  the  lexical  analyzer 
and  identify  how  it  operates  and  why  it  is  necessary. 

B.  TOKENS 

Lexical  Analysis,  often  called  linear  analysis  or  scanning,  is  when  a  stream  of 
characters  making  up  the  source  program  is  read  from  left-to-right  and  grouped  into 
tokens,  which  are  sequences  of  characters  having  a  collective  meaning  [Ref.  11:  p.4J. 
The  character  sequence  forming  a  token,  with  the  legal  characters  as  described  in 
[Ref.  12:  p.2- 1  ].  is  called  the  lexeme  for  the  token.  This  lexeme  is  what  is  used  to 
identify  the  actual  operators  and  operands  that  serve  as  the  input  for  our  metric.  All 
variables  will  have  a  lexeme,  such  as  sijrt,  rate,  answer,  and  so  on.  There  are  seven 
token  classes  in  the  Ada  language.  They  are  identifiers,  separators,  numeric  literals, 
delimiters,  comments,  character  literals,  and  string  literals.  The  lexical  analyzer  takes 
the  source  program  one  character  at  a  time,  and  builds  the  token  lexeme  as  it 
determines  the  token  class.  Each  token  is  generated  by  a  finite  state  automaton.  A 
finite  state  automaton,  often  called  a  finite  state  machine,  is  a  mathematical  model  for 
a  de\ice  that  is  capable  of  recognizing  strings  of  characters  defined  by  a  certain  class  of 
grammars,  called  regular  grammars.  Our  scanner,  or  lexical  analyzer,  can  be  in  any 
one  of  a  finite  number  of  internal  configurations  or  states  [Ref.  14:  p.  13].  The  state  of 
the  system  summarizes  the  information  concerning  past  inputs  that  is  needed  to 
determine  the  behavior  of  the  system  on  subsequent  inputs.  The  lexical  analyzer  scans 


the  symbols  of  a  computer  program  to  locate  the  strings  of  characters  corresponding  to 
one  of  the  seven  token  types  mentioned  earlier.  In  this  process  the  lexical  analyzer 
needs  to  remember  only  a  finite  amount  of  information,  suen  as  how  long  a  prefix  of  a 
reserved  word  it  has  seen  since  startup  1  Ref.  14:  p.l4|. 

We  will  now  address  these  tokens  individually  and  discuss  not  only  their  purpose 
and  content  but  also  the  finite  state  machines  we  programmed  to  handle  their 
recognition. 

1.  Identifiers 


r 


LETTER 


DIGIT  S-START 

ID- IDENTIFIER 


Figure  3.1  Finite  State  Machine  for  Identifiers. 

Identifiers  are  used  as  names  and  also  as  reserved  words  [Ref.  12:  p.2-4).  An 
identifier  must  start  with  a  letter  and  it  can  then  be  any  combination  of  letters,  digits 
or  the  underscore  character  (_).  There  cannot  be  two  underscore  characters  side  by 
side  in  the  identifier  and  there  is  no  maximum  length  specified  for  any  identifier. 
Identifiers  differing  only  in  the  use  of  corresponding  upper  and  lower  case  letters  are 
considered  as  the  same  [Ref.  12:  p.2-4].  The  finite  state  machine  we  programmed  to 
identify  and  store  token  identifiers  is  seen  in  Figure  3.1. 

2.  String  Literal 

A  string  literal  is  formed  by  a  sequence  of  zero  or  more  graphic  characters 
enclosed  between  two  quotation  characters  (")  used  as  string  brackets  [  Ref.  12:  p.2-6). 
A  string  literal  has  a  value  that  is  a  sequence  of  character  values  corresponding  to  the 
graphic  characters  of  the  string  literal  apart  from  the  quotation  character  itself 
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Figure  3.2  Finite  State  Machine  for  String  Literals. 


(Ref.  12:  p.2-6|.  If  a  quotation  character  value  is  to  be  represented  in  the  sequence  of 
character  values,  then  a  pair  of  adjacent  quotation  characters  must  be  written  at  the 
corresponding  piace  within  the  string  literal.  The  length  of  a  string  literal  is  the 
number  of  character  values  in  the  sequence  represented,  except  for  doubled  quotation 
characters  which  are  counted  as  a  single  character  (Ref.  12:  p.2-6],  A  string  literal  must 
tit  on  one  line  since  it  is  a  lexical  element  but  longer  sequences  of  graphic  characters 
can  be  obtained  by  catenation  of  string  literals  (Ref.  12:  p.2-7|.  Except  for  the  instance 
of  doubled  quotation  characters,  the  finite  state  machine  we  programmed  to  identify 
and  store  token  string  literals  can  be  seen  in  Figure  3.2. 

3.  Character  Literals 


S-START 

Cl-CHARACTER  LITERAL 


GRAPHIC  CHARACTER 


Figure  3.3  Finite  State  Machine  for  Character  Literals. 
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A  character  literal  is  formed  hy  enclosing  one  of  the  95  graphic  characters 
(including  the  space),  which  are  described  in  [Ref.  12:  p.2-1  [,  between  two  apostrophe 
characters  (').  A  character  literal  has  a  value  that  belongs  to  a  character  type.  The 
finite  state  machine  we  created  to  identify  and  store  token  character  literals  can  be 
seen  in  f  igure  3.3. 

4.  Comments 


Figure  3.4  Finite  State  Machine  for  Comments. 


A  comment  starts  with  two  adjacent  hyphens  and  extends  up  to  the  end  of  the 
line.  A  comment  can  appear  on  any  line  of  a  program  [Ref.  12:  p.2-7).  The  presence 
or  absence  of  comments  has  no  influence  on  whether  a  program  is  legal  or  illegal. 
Furthermore,  comments  do  not  influence  the  elTect  of  a  program.  The  sole  purpose  of 
comments  is  to  provide  clarity  and  explanation  to  the  human  reader.  The  horizontal 
tabulation  can  be  used  in  comments,  after  the  double  hyphen,  and  is  equivalent  to  one 
or  more  spaces  [Ref.  12:  p.2-7].  The  finite  state  machine  we  programmed  to  identify 
and  store  token  cotru  anis  can  be  seen  in  Figure  3.4. 

5.  Separators 

In  certain  cases  an  explicit  separator  is  required  to  separate  adjacent  lexical 
elements  (namely,  without  separation,  interpretation  as  a  single  lexical  element  is 
possible)  | Ref.  12:  p.2-3].  A  separator  is  any  of  a  space  character,  a  format  effector 
(such  as  horizontal  tabulation,  vertical  tabulation,  carriage  return,  line  feed,  and  form 
feed),  or  the  end  of  a  line  [Ref.  12:  p.2-3].  A  space  character  is  a  separator  except 
within  a  comment,  a  string  literal,  or  a  space  character  literal.  The  horizontal 


Figure  3.5  finite  StatcMachine  for  Separators. 


tabulation  is  not  a  separator  within  a  comment.  One  or  more  separators  are  allowed 
between  any  two  adjacent  lexical  elements  (tokens),  and  at  least  one  separator  is 
required  between  an  identifier  or  a  numeric  literal  and  an  adjacent  identifier  or  numeric 
literal.  The  finite  state  machine  we  programmed  to  identify  and  store  token  separator s 
is  seen  in  I  igure  3.5. 

6.  Delimiters 
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Figure  3.6  Finite  State  Machine  for  Delimiters. 

A  simple  delimiter  is  either  one  of  the  following  special  characters  (in  the  basic 
character  set): 


A  compound  delimiter  is  one  of  the  following,  each  composed  of  two  adjacent 
special  characters 

=  >  **;=  -  >  =  <=  >><<<> 

Any  other  combination  of  adjacent  special  characters  is  not  a  legal  compound 
delimiter.  The  finite  state  machine  we  programmed  for  identifying  and  storing  token 
delimiters  is  seen  in  Figure  3.6. 

7.  Numeric  Literal 

The  numeric  literal  is  by  far  the  most  complex  and  varied  type  of  token,  it 
encompasses  reai  numbers,  integer  numbers,  and  based  numbers  which  are  numeric 
literals  expressed  in  an  explicitly  specified  base  between  2  and  16  [Ref.  12:  2-5''.  p.  A 
real  number  is  a  number  with  a  decimal  point,  an  integer  is  a  number  without  a  point 
and  a  based  literal  is.  again,  a  number  whose  base  is  explicitly  stated.  An  underline 
character  t _)  inserted  between  adjacent  digits  of  a  numeric  literal  does  not  affect  the 
value  of  this  numeric  literal.  The  oniy  letters  allowed  as  extended  digits  are  the  letters 
A  through  F.  which  stand  lor  the  digits  ten  through  fifteen  in  hexidecimal.  A  letter  in 
a  based  number  can  be  written  either  in  lower  case  or  in  upper  case,  with  the  same 
meaning  'Ref.  12:  p.2-fi.  Leading  zeros  are  allowed.  No  ipacc  is  allowed  in  a  numeric 
literal,  not  even  between  constituents  of  the  exponent,  since  a  space  is  a  separator.  A 
zero  exponent  is  allowed  for  an  integer  literal.  The  finite  state  machine  we 
programmed  to  identify  and  store  token  numeric  literals  can  be  seen  in  Figure  3.7. 

C.  TOKEN  USE 

As  was  seen  in  Chapter  II,  a  grammar  is  made  up  of  terminals,  non-terminals,  a 
start  symbol,  and  productions.  The  terminals  are  the  basic  symbols  from  which  strings 
are  formed.  These  strings  are  the  combinations  of  the  most  basic  symbols,  tokens, 
which  form  meaningful  expressions  to  a  particular  language.  To  be  able  to  analyze 
these  strings  and  determine  whether  or  not  a  given  string  is  a  legal  statement  in  any 
given  language  we  must  first  identify  each  token  as  it  is  entered  by  the  program. 
Identification  of  the  tokens  permits  the  computer  to  compact  the  incoining  data  thus 
allowing  the  saving  of  space.  For  example,  if  someone  placed  ten  blanks  in  an  input 
program  where  only  one  was  n  eded,  lexical  analysis  would  see  the  separator  and  flush 
the  other  unused  blanks,  thus  saving  space.  Certain  tokens  will  be  augmented  by  a 
lexical  value.  For  example,  when  an  identifier  like  rate  is  found,  the  lexical  analyzer 
not  only  generates  a  token,  say  id,  but  also  enters  the  lexeme  rate  into  the  symbol 
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table,  if  it  is  not  already  there  [Ref.  11:  p.  1 2].  The  lexical  value  associated  with  this 
occurence  of  id  points  to  the  symbol-table  entry-  for  id.  The  construction  of  these 
tokens  is  done  by  reading  one  character  at  a  time  and  building  the  lexeme  of  the  token 
by  appending  the  appropriate  characters  together.  This  translation  from  the  input 
program  to  a  simple  stream  of  tokens  is  the  sole  job  of  the  lexical  analyzer.  In  the 
next  chapter  we  will  look  at  the  system  parser  and  its  functions. 


I 
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IV.  PARSER 


A.  INTRODUCTION 

The  parser,  which  is  the  second  component  of  our  front-end  machine,  is  the 
mainstay  of  our  metric.  Parsing  is  also  called  hierarchical  analysis  or  syntax  analysis. 
It  involves  grouping  the  tokens,  created  by  the  lexical  analyzer,  of  the  source  program 
into  grammatical  phrases  that  are  used  to  synthesize  output  [Ref.  11:  n.bl.  A  parser 
can  be  constructed  for  any  context-free  grammar.  The  important  factor  in  parsing  is 
speed.  Given  a  programming  language,  we  can  generally  construct  a  grammar  that  can 
be  parsed  quickly.  Most  programming  language  parsers  make  a  single  left-to-right 
scan  over  the  input,  looking  ahead  one  token  at  a  time  [Ref.  11:  p.—  1  ].  In  discussing 
this  parsing  problem,  it  is  helpful  to  think  of  a  parse  tree  being  constructed,  even 
though  our  front-end  machine  does  not  actually  construct  a  tree.  A  parse  tree 
describes  the  syntactic  structure  of  the  input.  It  pictoriailv  shows  how  the  start  symbol 
of  a  grammar  derives  a  string  in  the  language  (Ref.  1 1:  p.2')J.  Formally,  given  a 
context-free  grammar,  a  parse  tree  is  a  tree  with  the  following  properties: 

1.  The  root  is  labeled  by  the  start  symbol. 

2.  Each  leaf  is  labeled  by  a  token  or  empty  string. 

3.  Each  interior  node  is  labeled  by  a  nonterminal. 

The  leaves  of  a  parse  tree,  read  from  left  to  right,  form  the  yield  of  a  tree,  which 
is  the  string  generated  or  derived  from  the  nonterminal  at  the  root  of  the  parse  tree 
[Ref.  11:  p.29[.  The  term,  context-free  grammar,  which  is  mentioned  earlier,  defines  a 
finite  set  of  variables  (also  called  nonterminals  or  syntactic  categories),  each  of  which 
represents  a  language  [Rel.  14:  p.77],  A  context-free  grammar  is  denoted  G  = 
(V,T,P,S),  where  V  and  T  are  finite  sets  of  variables  and  termini, 's  respectively 
[Ref.  14:  p. 79 J.  P  is  a  finite  set  of  productions;  each  production  (A  =  >  \V)  is  of  the 
form  A  produces  11  where  A  is  a  variable  and  IF  is  a  string  of  symbols  from  any 
combination  of  (V  union  T).  f  inally.  S  is  the  start  symbol.  It  must  be  noted  though 
that  although  our  front-end  machine  is  capable  of  constructing  a  parse  tree  (otherwise 
the  translation  would  not  be  guaranteed  correct)  the  actual  tree  is  not  necessary  for 
our  metric  purposes  and  is  therefore  not  built. 
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Most  parsing  methods  fall  into  one  of  two  classes,  top-down  and  bottom-up 
methods  [Ref.  11:  p.4 1  ].  These  terms  refer  to  the  order  in  which  nodes  in  the  parse 
tree,  if  the  tree  actually  existed,  were  constructed.  In  the  top-down  method, 
construction  starts  at  the  root  and  proceeds  towards  the  leaves  going  deeper  and 
deeper  until  eventually  reaching  the  bottom.  In  the  bottom-up  method  it  is  just  the 
opposite.  Construction  starts  at  the  bottom  and  proceeds  towards  the  root.  The 
popularity  of  top-down  parsers  is  due  to  the  fact  that  efficient  parsers  can  be 
constructed  more  easily  by  hand  using  top-down  methods  [Ref.  11:  p.4 1 J.  Bottom-up 
parsing,  however,  can  handle  a  larger  class  of  grammars  and  translation  schemes,  so 
software  toois  for  generating  parsers  directly  from  grammars  have  tended  to  use 
bottom-up  methods  [Ref.  11:  p.-Uj.  Because  of  its  efficiency  and  ease  of  use.  we  have 
chosen  to  use  the  top-down  method  of  parsing  for  the  front-end  machine  of  our  metric. 
Furthermore,  we  chose  a  particular  type  of  top-down  parsing  called  recursive-descent. 
This  technique,  a  classical  nietnod  often  used  in  industry,  is  very  powerful.  We 
describe  its  operation  ;n  the  following  section. 

3.  TOP-DOWN  RECURSIVE  DESCENT  PARSING 

Recursive-descent  parsing  is  a  top-down  method  of  syntax  analysis  in  which  we 
execute  a  set  of  recursive  procedures  to  process  the  input  [Ref.  11:  p.44],  A  function  is 
associated  with  each  nonterminal  of  a  grammar.  We  now  consider  a  special  form  of 
recursive-descent  parsing,  called  predictive  parsing,  in  which  the  token  symbol 
unambiguously  determines  the  function  selected  for  each  nonterminal  [Ref.  11:  p.44]. 
The  sequence  of  functions  called  in  processing  the  input  implicitly  defines  a  parse  tree 
for  the  input. 

Our  procedure  GET_CURRENT_TOKEN_RECORD  builds  an  array  of  fifty- 
tokens  and,  starting  at  the  initial  position  controls  a  pointer  which  identifies  the 
current  token  being  parsed  and  another  pointer  which  identifies  the  next  or  lookahead 
token  to  be  parsed.  The  function  BYPASS  is  the  central  control  and  workhorse  for 
our  parser.  It  compares  the  current  token  with  predefined  terminals.  If  there  is  a 
token-to-terminal  match,  BYPASS  consumes  the  token  by  adjusting  the  index  pointers. 
All  of  the  terminal  symbols  in  the  Ada  language  are  defined  and  any  nonterminal  is.  as 
was  stated  earlier,  a  function  call  that  returns  a  boolean  value  of  true  or  false. 

Parsing  begins  with  a  call  for  the  starting  nonterminal,  which  is  COMPILATION 
in  the  Ada  grammar.  Parsing  progresses  as  each  function  calls  other  functions. 


.  r. 


27 


descending  into  the  parse  structure  until  a  call  to  BYPASS  is  performed  and  the 
appropriate  boolean  value  is  returned.  This  process  of  ascending  and  descending  the 
parse  structure  continues  until  all  the  tokens  created  from  the  input  file  have  been 
consumed  or  an  error  occurs. 

We  made  an  attempt  to  design  the  parser  to  be  as  robust  as  possible.  However, 
due  to  the  complexity  of  the  language  we  were  often  forced  to  rely  on  the  fact  that  the 
input  file  had  been  correctly  compiled  before  being  fed  into  our  parser.  The  fact  that 
the  input  file  was  precomDiied  allowed  us  to  drop  the  italicized  element  of  'he 
nonterminals  in  the  grammar.  Some  examples  of  this  modification  are: 

1.  A  parser  for  a  compiler  would  normally  have  to  remember  the  rvne  associated 
with  NAME  each  time  it  was  encountered.  In  our  case  we  simpiy  droppeu  me 
rype  reciuirement  and  parsed  all  of  them  with  the  lunction  NAME.  For  example, 
all  of  the  following  are  reduced  to  just  NAME:  TYPE_NAME,  VARIABLE_MAME , 
PROCEDURE_NAME ,  “  FUNCTION_NAME ,  ENTRY.NAME ,  and  this  list  is  far  from 
complete. 

2.  Another  example  occured  when  we  dropped  the  italicized  element  of  the 

nonterminal  EXPRESSION.  Since  the  type  had  been  checked  pv  i  full  compiler, 
for  our  parser  the  following  three  nonterminals  oecame  simple  EXPRESSION: 
UNIVERSAL  STATIC  EXPRESSION,  OUALI? ISD.EXPRESSTON .  and 

300LEAN_ZX?RES3I0N.  The  following  two  nonterminals  oecame 
SIMPLE  EXPRESSION  for  the  same  reasons:  '  STATIC.SIMPLE  EXPRESSION.  and 
DELAY_iIMPLE_SX?RES3ICN. 

3.  Our  third  example  is  that  bv  dropping  the  italicized  element  of 
DISCRETE  SUBTYPE  INDICATION  and  C0MP6neNT_SU3TYPE_INDICATI0N ,  they 
can  both  fie  correctly-  parsed  by  SUBTYPE_INDICATION. 

The  changes  highlighted  above,  and  others  that  are  not  shown,  were  done  to 
reduce  the  size  and  complexity  of  the  parser.  Having  to  retain  all  the  type  information 
would  have  required  a  much  more  extensive  parsing  element.  This  reduction  allows 
our  parser  to  be  more  efficient  in  its  operation.  We  did  not  intend  for  our  front-end 
machine  to  be  a  full  compiler.  We  only  needed  to  parse  an  input  file  in  enough  detail 
to  be  able  to  collect  the  meaningful  and  relevant  metric  data. 
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V.  ADAMEASURE 


A.  INTRODUCTION 

As  was  seen  in  the  first  chapter  of  our  thesis  there  is  a  variety  of  different  metric 
theories.  By  request  of  the  Missile  Software  Branch,  Naval  Weapons  Center,  China 
Lake,  we  implemented  the  Halstead  Software  Science  Metric.  In  the  effort  to  pro\ide 
as  much  information  about  the  input  program  as  possible,  we  also  provide  information 
on  comments  and  nesting.  We  felt  it  was  important  to  avoid  trying  to  generate  a 
single  number,  say  betweeen  one  and  ten,  which  would  be  an  attempt  to  quantify  the 
given  metric  information  into  a  single  numeric  statement.  Instead  we  generate  a  few 
important  numbers,  then  we  apply  some  reasoning  to  what  we  believe  these  numbers 
mean  in  relation  to  program  complexity  and  overall  software  quality.  We  stress  what 
the  program  says  about  the  software  is  merely  suggestive. 

B.  DATA  COLLECTION 

In  explaining  the  how  and  why  of  our  data  gathering,  we  will  deal  with  each  of 
the  three  types  of  information  analysis  separately. 

1.  Halstead  Data 

As  stated  in  chapter  one,  we  only  implemented  the  program  length  metric 
from  Halstead's  software  science  theory.  We  gathered  the  operator  data  through  our 
workhorse  function  BYPASS  which  counted  every  token-to-operator  terminal  match. 
To  acquire  the  operand  data  we  generated  a  symbol  table  of  all  identifiers,  be  they 
variables,  procedures,  functions,  tasks,  blocks,  or  numeric  constants.  Once  this  was 
completed  we  now  had  the  four  Halstead  parameters  nl.  n2,  NT,  and  N2.  Having 
calculated  the  theoretical  length  and  actual  length  we  divided  both  of  these  numbers 
by  total  lines  input  to  allow  comparisons  of  results  from  programs  of  different  size. 

If  the  actual  length  is  greater  than  the  theoretical  length  Halstead 
hypothesized  that  the  difference  is  caused  by  one  or  more  of  the  following  six  classes  of 
impurities. 

•  Cancelling  :  The  occurence  of  an  inverse  cancels  the  effect  of  a 

previous  operator:  no  other  use  of  the  variable  chanced 
by  the  operator  is  made  before  the  cancellation. 

•  Ambiguous  operands  :  The  same  operand  is  used  to  represent  two  or  more 

variables  in  an  algorithm. 
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•  Svnonvmous  operands  :  Two  or  more  operand  names  represent  the  same 

variable. 

•  Common  subexpressions  :  The  same  subexpression  occurs  more  than  once. 

•  Unnecessary  replacements  :  A  subexpression  is  assigned  to  a  temporary  variable 

which  is  used  only  once. 

•  Unfactored  expressions  :  There  are  repetitions  of  operators  and  operands 

among  unfactored  terms  in  an  expression. 

If  the  theoretical  length  is  greater  than  the  actual  length  then  the  following 
conditions  could  exist: 

•  Operands  :  There  mav  be  some  variables  which  were  declared  but  never 

relerenced  in 'the  program. 

•  Globals  :  A  large  number  of  the  variables  referenced  were  declared  in  the 

packages  instantiated  by  the  WITH  statement. 

2.  Comment  Data 

As  the  input  file  is  parsed,  a  count  is  kept  of  the  comment  lines.  Upon 
completion  of  parsing  the  number  of  comment  lines  is  divided  by  the  total  lines  inpur. 
then  multiplied  by  one-hundred  to  yield  the  overall  comment  percentage.  On  the  basis 
of  this  percentage  we  make  recommendations,  that  might  prove  helpful  to  the  software 
engineer.  Briefly,  we  consider  a  comment  percentage  between  zero  and  fifteen  percent 
as  low  and  we  state  that  unless  the  program  utilizes  Ada  s  extensive  variable 
identification  ability  then  there  may  be  too  few  comments  for  adequate  reader 
comprehension.  We  consider  a  comment  percentage  between  fifteen  and  fifty  as  a 
reasonable  number  and  state  that  this  could  give  the  reader  a  good  understanding  of 
the  program.  A  comment  percentage  between  fifty  and  eighty-five  percent  is 
considered  fairly  high  and  we  state  that  the  program  has  good  understandability  but 
runs  a  small  risk  of  obscuring  the  code.  Lastly,  a  comment  percentage  between  eighty- 
five  and  one-hundred  percent  is  an  extremely  high  percentage  and  we  say  that  the 
program  has  a  higher  possibility  of  obscuring  the  code  in  the  high  number  of 
comments. 

3.  Nesting  Data 

Determining  a  program's  complexity  is  not  an  easy  thing  but  it  is  generally 
accepted  that  as  the  nesting  level  increases  so  goes  the  complexity  level.  We  have 
implemented  a  nesting  level  summary  which  counts  how  frequently  a  given  nesting 
level  was  reached,  maintains  a  record  for  each  level,  and  keeps  track  of  the  maximum 
level  used  and  where  it  was  first  encountered. 
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VI.  CONCLUSIONS 


A.  METRICS 

The  Department  of  Defense's  interest  in  metrics  provides  a  powerful  motivation 
for  the  continued  research  into  possible  metric  tools.  The  software  crisis  is  severe 
enough  to  currant  toms.  aids,  ust  an>  bit  of  information  that  will  improve  the 
software  engineering  process.  Computer  Science  .s  suca  an  infant  in  me  .vend  )f 
acaoemia  ana  metrics  .s  men  x  erv  muni  part  ot  tms  chiiu  mat  we  are  aware  of  me 
ditficuitv  ,n  finding  breaKtnrougas.  The  computer  scientists  may  have  tried  to  "catch* 
up'  with  the  other  sciences  much  too  rapidly,  consequently  they  may  have  trussed 


laying  some  of  the  necessary  foundations. 

Our  initial  etlbrt  .s  a  goou  mart,  a  baseline  from  wmch  future  etforts  can  ouiid 
upon.  A  da  Measure  is  a  heipfui  tcoi  .or  providing  the  software  engineer  with  the 
information  that  is  present*’.'  gathered  bv  ianu.  W'e  -io  not  fee;  >ottware  metrics  mourn 
simpp.  attempt  putting  .«  .icrnner  onto  .1  program  in  the  etlbrt  to  quantify  as  qua.ity. 
Text  describing  what  the  metric  :ias  ccn  anu  vow  it  relates  to  me  programmer  arm  me 
program  is  what  is  really  needed  for  the  output.  It  is  tins  bridging  from  the  concrete 
world  of  the  metric  to  the  abstruse,  metaphysical  environment  of  the  actual  software 
that  presents  the  real  challenge.  As  we  collect  and  analyze  the  data,  we  bridge  this  gap 
by  providing  recommendations  to  the  user  on  how  we  see  the  interrelationship  of  these 
two  entities.  These  recommendations  are  based  on  currently  accepted  software 
practices. 


B.  IMPLEMENTATION 

In  our  effort  to  make  the  Ada  grammar  more  LLi  lblike  we  were  forced  to 
perform  extensive  massaging.  This  massaging  allowed  us  to  use  the  top-dowm, 
recursive-descent  parsing  technique.  This  classical,  time  tested  method  prosed  to  be 
easily  implemented  and  debugged.  The  extensive  massaging  made  it  necessary  for  us  to 
frequently  check  and  reaffirm  that  the  language  generated  by  our  newly  transformed 
grammar  was  exactly  the  same  as  the  initial  language.  This  point  cannot  be 
overstated.  The  languages  must  be  identical.  Because  of  the  complexity  involved  in 
massaging  and  checking  the  grammar,  we  feel  we  have  some  insight  into  how 
languages  are  created,  how  they  build  upon  themselves,  and  where  languages  -;e  going 
in  the  future. 
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When  we  originally  accepted  the  proposal  for  creating  a  metric,  we  were  not 
aware  of  how  complex  and  time  consuming  the  implementation  of  the  front-end 
machine  would  be.  This  complextiy.  coupled  with  the  fact  that  Ada  is  a  brand  new 
language  and  relatively  unknown  other  than  by  name,  made  it  a  struggle  until  we  had 
significantly  progressed  along  the  learning  curve.  We  found  the  Ada  compiler,  which  is 
currently  a  state-of-practice  compiler,  to  be  extremely  slow  in  comparison  to  the 
compilers  we  were  familiar  with  such  as  Pascal  or  Fortran.  The  Navai  Postg-aduate 
School  has  no  Ada  compiler  so  we  were  forced  to  work  over  Arpanet  or  Teinei  for  *he 
actual  programming.  "Hus  presented  problems  and  delays  3n  a  -egtilar  basis.  The 
expiration  of  access  card  numbers,  the  malfunctioning  of  the  oridge  box.  the  oetwor.es 
going  down,  the  slow  baud  rate  between  stations,  and  machine  downtime  at  NWC 
China  Lake,  both  scheduled  and  nonscheduled.  made  information  transfer  a  reai  hurdle 
,n  the  overall  effort. 


C.  THE  FL'TL'RE 

Having  designed  a  generic  metric  tool,  we  hope  *he  program  wiil  be  expanded 
and  unproved.  There  s  lireauy  a  pian  n  progress  to  nave  Sadie  Hear'  ana  Dennis 
Kafuru  s  Complexity  Flow  Metric  irnpiemented.  There  ;s  u  reai  need  lor  user  interlace 
improvements.  Because  of  the  limited  hardware  options  available  to  us.  we  have 
programmed  our  interface  to  deal  with  the  VT-100  terminal.  To  make  the  system  more 
robust  and  transportable,  an  interface  scheme  that  would  be  functional  from  a  variety 
of  different  terminals  would  be  a  useful  endeavor. 

This  metric  was  undertaken  at  the  request  of  NWC  China  Lake  and  all  of  our 
efTorts  have  been  guided  by  their  input  to  us.  Pragmas,  which  are  used  to  convey 
information  to  the  compiler,  are  currently  being  used  in  run-time  systems  only  at  China 
Lake  and  although  they  are  in  the  Ada  grammar  we  have  not  implemented  them  in  our 
metric.  It  would  greatly  increase  the  value  of  the  program  if  the  pragma  portion  of  the 
grammar  were  implemented.  The  Software  Missile  Branch  of  NWC  China  Lake  has 
provided  all  the  Ada  programs  at  their  disposal  to  help  us  test  our  metric  for  proper 
parsing.  We  have  successfully  tested  our  metric  on  all  these  files  and  we  have 
successfully  tested  our  own  code  by  feeding  our  metric  into  itself.  Although  our  tests 
have  been  successful  we  have  not  tested  all  of  our  code.  There  is  a  particular  need  for 
programs  that  will  test  our  metric  in  the  area  of  tasking  and  all  the  code  that  is 
associated  with  it.  This  testing  effort  should  be  carried  our  as  soon  as  possible. 
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APPENDIX  A 

MODIFIED  ADA  GRAMMAR 


Our  translation  key  has  terminal  symbols  as  lowercase  letters,  nonterminal 
symbols  as  uppercase  letters,  and  bold-faced  symbols  to  indicate  the  meta-symbols  of 
our  grammar. 

' 9. 10  l  l parser3 ) 

ABORT_STATEMENT  — >  NAME  [  ,  NAME] 

( 9.5  )  (parserl  ) 

ACCEPT_STATEMENT  identifier  [  (EXPRESSION)  ?]  [  FORMAL_PART  ?] 

[  do  SEQU£NCE_OF_STATEMENTS  end  [  identifier  ?]  ?]  > 

(4.3)  (parser3) 

AGGREGATE  -->  ( COMPONENT_ASSOCIATION  [  ,  COMPONENT_ASSOCIATION]  ) 

(4.8)  lparser3) 

ALLOCATOR  SUBTYPE_INDICATION  [  1  AGGREGATE  ?] 

(3.6)  <  parser3  ) 

ARRAY_TYPE_OEFINITION  -->  ( IN0EX_C0NSTRAINT  of  SUBTYPE_INDICATION 

(5.21  ( parser 2  ) 

ASSIGNM£NT_OR_PRQCEOURE_CALL  -->  NAME  :=  EXPRESSION  1 

— >  NAME  i 

(4.1.4)  (parser3) 

ATTRIB(JTE_DESIGNATOR  — >  identifier  [  (EXPRESSION)?] 

— >  range  [  (EXPRESSION)  ?] 

-->  digits  [  (EXPRESSION)  ?] 

— >  delta  [  (EXPRESSION)  ?] 

(3.1)  (parserl) 

BASIC_OECLARATION  -->  type  TYPE_0ECLAR ATION 

-->  subtype  SUBTYPE_OECLARATION 
-->  procedure  PROCEOURE_UNIT 
— >  function  FUNCTI0N_UNIT 

package  PACKAGE_DECLAR ATION 
— >  generic  GENE RIC_DECLARAT ION 
-->  IOENTIFIER_DECLAR ATION 
task  TASK_DECLARATION 

(3.9)  (parserl) 

BASIC_DECLARATIVE_ITEM  -->  BASIC_DECLAR ATION 

-->  RE PRESENT AT ION_CLAUSE 
— >  use  HITH_OR_USE_CLAUSE 

(10.1)  ( parserO ) 

BASIC_UNIT  -->  LIBRARY_UNIT 

-->  SECOND ARY_UNIT 

(4.5)  ( parser4 ) 

BINARY_ADDING_OPERATOR  -->  + 

-  -  > 

-->  S 

(5.6)  ( parserl ) 

BLOCK_STATEMENT  -->  [  identifier  :  ?]  [  declare  DECLARATIVE_PART  ?]  begin 

SEOUENCE_OF_STATEMENTS  [  exception  [  EXCEPTION_HANDLER]  ?]  ?] 
end  [  identifier  ?]  t 
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(5.4)  (parsarl) 

CASE.STATEMENT  — >  EXPRESSION  is  [  CASE_STATEMENT_AITERNATIVE]  and  casa  ) 

(5.4)  (parsarl) 

CASE_STATEMENT_ALTERNATIVE  — >  when  CHOICE  [  I  CHOICE]  =>  SEQUENCE.OF.STATEMENTS 
(3.7.3)  ( parsar3 ) 

CHOICE  — >  EXPRESSION  [  . .SIMPLE.EXPRESSION  ?] 

— >  EXPRESSION  [  CONSTRAINT  ?] 

-->  others 

(10.1)  (parserO) 

COMPILATION  -->  [  COMPILATION .UNIT] 

(10.1)  ( oarsarO ) 

COMPILATIONJJNIT  —  •  CONTEXT  .CLAUSE  3ASICJJNIT 
! 4 . 3  1  ( parser 3 ) 

COMPONENT. ASSOCIATION  — >  [  CHOICE  [  I  CHOICE]*  =>  ?]  EXPRESSION 
(3.7)  ( parser2 ) 

COMPONcNT.DECLARATION  — >  IDENTIFIER.LIST  :  SUBTYPE.INDICATION  [  :=  EXPRESSION?]  ) 
(3.7)  (parsers) 

COMPONENT. LIST  — >  [  COMPONENT.OECLARATIOn]  [  VARIANT.PART  ?] 

— >  null  i 


15.1)  (parsarl) 
COMPOUND  STATEMENT 


—  >  if  IF.STATEMENT 

— >  case  CASE.ST ATEMENT 
— >  LOOP.ST ATEMENT 

—  >  3LCCK .STATEMENT 

— >  accept  ACCEPT.STATEMENT 
— >  select  SELECT.ST ATEMENT 


(3.0  (  parsers  ) 

CONST ANT.TERM  — >  array  CONSTRAINEO.ARRAY.DEFINITION  [  :=  EXPRESSION?]  i 
— >  :=  EXPRESSION 

— >  NAME  IOENTIFIER.TAIL 

(3.3.2)  (parsar3) 

CONSTRAINT  — >  range  RANGES 

— >  digits  FLOATING.OR.FIXED.POINT.CONSTRAINT 
— >  delta  FLOATING.OR.FIXEO.POINT.CONSTRAINT 
— >  ( INDEX.CONSTRAINT 

(10.1.1)  (parsarl) 

CONTEXT.CLAUSE  — >  [  with  HITH.OR.USE.CLAUSE  [  use  WITH.OR.USE.CLAUSe]  ] 
(3.9)  (parsarl) 

DECLARATIVE.PART  — >  [  BASIC.DECLARATIVE.ITEM]  [  LATER.DECLARATIVE.ITEM] 
(9.6)  ( parser3 ) 

DELAY.ST ATEMENT  — >  SIMPLE.EXPRESSION  ^ 

(6.1)  (parser2) 

DESIGNATOR  — >  identifier 

— >  string.literal 


(3.6)  (parser3) 

DISCRETE.RANGE  — >  RANGES  [  CONSTRAINT  ?] 

(3.7.1)  ( par*er2 ) 

DISCRIMINANT.PART  — >  ( DISCRIMINANT.SPECIFICATION  [  >  DISCRIMINANT.SPECIFICATION]  ) 

(3.7.1)  ( parser 2  ) 

DISCRIMINANT.SPECIFICATION  — >  IOENTI rIER_LIST  :  NAME  [  :=  EXPRESSION?] 


>*•'<*  «  *  .  ‘  *  m  *  *  a  *  .  *  •  ”  •  *,  v '  ■  *  *  •  '  -  1  '  •*  *  v  *  e  *  -  »  *  a  t*  >  *  ■  ’  *  *  .  ”  *  * 

v:>:A-.v.v.  v  •••’  •*-  --  a.-av.v.v_v_  -vw.  * 


(9.5)  (parsers) 

ENTRY.DECLARATION  -->  entry  identifier  [  ( DISCRETE_RANGE  )  ?]  [  FORMAL_PART  ?]  ( 

(3.5.1)  ( parser4  ) 

ENUME RATION.LITERAL  -->  identifier 

-->  charactar_litaral 

(3.5.1)  (  parsar-4  I  _ 

ENUME RATION.TYPE .DEFINITION  — >  ( ENUMERATION_LITERAL  [  ,  ENUME RATION.LITERAL]  ) 

(11.1)  ( parserZ  ) 

EXCEPT I ON_CHOICE  — >  identifier 
— >  others 

i 1 1 . 2  )  i parser 1  )  _ 

E/CEPTION.HANOLES  wnen  EXCSPTION.CHOICc  ”  ,  EXCEPTION.CHOICE j 

=  >  3EQUENCE.0F.3TATEMENTS 

(8.5)  1 oarserS  I 

EXCEPTION.*  AIL  — >  ( 

-->  renames  NAME  t 

(5.7)  ( parser3  I 

E'XIT.STATEMENT  [  NAME  ?]  [  when  EXPRESSION  ?]  > 

c*.4i  parsari  I 

EXPRESSION  — >  RELATION  RELATION ."AIL 
(4.41  I parser3  1 

FACTOR  PRIMARY  [  **  PRIMARY  ?] 

— >  abs  PRIMARY 
-lot  PRIMARY 

13.5.7)  1  parser:  ) 

FLOATING_OR_FI'.<ED_POINT_CONSTRAINT  — >  3IMPLE_EXPRESSI0N  [  -ango  RANGES  ?] 

'  6.4)  (parser4) 

FORMAL_PARAMETER  identifier  => 

(6.1)  (parser2> 

FORMAL_PART  — >  ( PARAMETER_SPECIFICATION  [  )  PARAMETER.SPECIFICATION]  ) 

(6.1)  ( parserl ) 

FUNCTION_BOOY  -->  is  [  FUNCTION.BOOY.TAIL  ?] 

—  >  » 

(6.1)  (parserl) 

FUNCTION_BOOY_TAIL  — >  separata  l 
-->  <>  ( 

— >  SUBPROGRAM. BODY 
— >  NAME  > 

(6.1)  (parsari) 

FUNCTION.UNIT  -->  DESIGNATOR  FUNCTION_UNIT_T AIL 

(6.1)  ( parserl  ) 

FUNCT I ON_UNI T_T A I L  — >  is  new  NAME  [  GENERIC .ACTUAL .PART  ?)  > 

— >  [  FORMAL.PART  ?]  return  NAME  FUNCTION.BODY 

(12.1)  (parser2) 

GENERIC.ACTUAL.PART  — >  ( GENERIC.ASSOCIATION  [  ,  GENERIC.ASSOCIATION]  ) 

(12.1)  ( parsers  ) 

GENERIC.ASSOCIATION  -->  [  GENERIC.FORMAL.PARAMETER  ?]  EXPRESSION 

(12.1)  ( parserl  ) 

GENERIC.DECLARATION  — >  [  GENERIC.PARAMETER.DECLARATION  ?]  GENERIC.FORMAI _ PART 
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.  ■  .  '  1^*  I 


(12.1)  ( parser.’  ) 

GENE RIC_FORMAL_PARAME TER 


— >  identifier  => 

—  >  str  ir>g_li  teral  => 


(12.1)  (parserl) 

GENE RIC_FORMAL_P ART  — >  procedure  PROCEDURE.UNIT 
-->  function  FUNCTION_UNIT 
-->  package  PACKAGE_OECLARATION 


(12.1)  ( parserl ) 
GENERIC_PARAMETER_DECLARATION 


IDENTIFIER.LIST  :  [  MODE  ?]  NAME  [  :=  E 
type  private  [  DISCRXMINANT_PART  7]  is 
PRIVATE_TYPE  DECLARATION  ( 
type  private  ["  3ISCRIMINANT_PART  ?]  is 
GENERIC_TYPE_DE  FINITION  i 
with  procedure  PROCEDURE  JJNIT 
with  function  FUNCTION  UNIT 


=  EXPRESSION  ?]  > 


(12.1)  ( parser 2  I 
GENERIC  TYPEOEFINITION 


->  (  <>  ) 

->  range  <> 

->  digits  <> 

->  delta  <> 

->  array  ARRAY_TYPE_OE FINITION 
->  access  SU8TYPE_OEFINITION 


( 5 . R  I  ( parser3  ) 

GOTO_STATEME NT  NAME  1 

(1.2)  l parser2  I 

IDENTIFIER_3ECLARATION  -->  IDENTIFIER  LIST 


I3ENTIFIER_0ECLARATI0N_TAIL 


13.2)  ( parser2 ) 
IDENTIF1ER_DECLARATI0N_TAIL 


exception  EXCEPTIONS AIL 
constant  CONST ANT_TERM 
array  CONSTRAINED  ARRAY_DE FINITION 
[  :=  EXPRESSION  ?]  > 

NAME  IDENTIFIERTAIL 


(3.2)  (parserE) 

IDENTIFIERS  1ST  — >  identifier  [  ,  identifier] 


13.2)  (parser2) 

identifier_tail 


CONSTRAINT  ! 
renames  NAME 
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:=  EXPRESSION  ?] 


(5.3)  (parserl) 

IF_STATEMENT  -->  EXPRESSION  then  SEQUENCE_OF_STATEMENTS 

[  elsif  EXPRESSION  then  SEQUENCE_OF_STATEMENTs]  [  else 
SEQUENCE_OF_STATEMENTS  ?]  end  if  » 

(3.6)  ( parser3  I 

INDEX_CONSTRAINT  DISCRETE_RANGE  [  ,  DISCRETE_RANGE]  ) 

(3.5.4)  (parser3) 

I NTEGER_TYPE_DE FINITION  -->  range  RANGES 
(5.5)  ( parser3  I 

ITERATION_SCHEME  — >  while  EXPRESSION 

-->  for  LOOP_PARAMETER_SPECIFICATION 

15.1)  ( parser2 ) 

LABEL  - - >  <<  identifier  >> 


(3.4)  (parserl) 
IATER_DECLARATIVE_ITEM  --> 


PROPER_BODY 

generic  GENERIC_DECLARATION 
use  WITH_OR_USE  CLAUSE 


*  •  *  Jt  *  -  -  » '  .  * .  '  a 


j"  / 


(4.1)  (parser3) 

LEFT  PAREN.NAME.TAIL  — >  [  FORMAL.PARAMETER  ?]  EXPRESSION  [  ..EXPRESSION?] 

[  ,  (  FORMAL  PARAMETER  ?]  [  ,  EXPRESSION  [  . .EXPRESSION  ?]]  )  [ 

NAME_TAIl] 

—  >  DISCRETE.RANGE  )  [  NAME.TAIL] 


(10.1)  ( parserO  ) 
LIBRARY  JJNIT  --> 
—  > 
—  > 
—  > 


procedure  PROCEDURE_UNIT 
function  FUNCTION_UNIT 
package  PACKAGE .DECLARATION 
generic  GENERIC.DECLARATION 


l 10 . 1 )  ( parserO I 
LIBRARY.UNIT.BOOY 


procedure  PROCEOURE.UNIT 
function  FUNCTION .UNIT 
package  PACKAGc.DECLARATION 
generic  GENERIC.DECLARATION 


( 5 • S  I  ( parser3  ) 

L00P.PARAMETER.SPEC1 FICATION  -->  identifier  in  [  reverse  ?]  DISCRETE.RANGE 
( 5.5  )  ( parserl  ) 

LOOP.STATEMENT  -->  [  identifier  :  ?]  [  ITERATION.SCHEME  ?]  loop 

SEQUENCE.OF.STATEMENTS  and  loop  [  identifier  ?]  > 

(6.1)  • parser D  > 

MODE  -->  [  in  ?] 

-->  in  out 
—  >  out 

14.5)  l parser4  I 
MULTIPLYING.CPERATCR  ~>  * 

-->  / 

mod 
—  >  ran 


(4.1)  ( parser3  ) 

NAME  —  >  identifier  [  NAME.TAIL  ?] 

-->  character.literal  [  NAME.TAIL  ?] 
— >  string_literal  [  NAME.TAIL  ?] 


(4.1)  ( parser3  ) 
NAME.TAIL  — > 
--> 


--> 


(  LE FT.PAREN.NAME.T AI L 
■SELECTOR  [  NAME.TAIL] 

■AGGREGATE  [  NAME.TAIL] 
■ATTRIBUTE.DESIGNATOR  [  NAME.TAIL] 


(7.1)  (parserl) 

PACKAGE.BODY  — >  identifier  is  PACKAGE.BODY.TAIL 


(7.1)  (parserl) 

PACKAGE.BODY.TAIL  -->  separate  » 

—>  [  DECLARATIVE.PART  ?]  [  begin  SEQUENCE  OF.STATEMENTS 

f  exception  [  EXCEPTION_HANDLEr]  ?]  ?]  end  [  identifier  ?]  \ 


(7.1)  ( parserl ) 

PACKAGE.TAIL.ENO  -->  new  NAME  [  GENERIC. ACTUAL^P ART  ?]  > 

— >  [  BASIC.DECLARATIVE.ITEmI  [  private 

[  BASIC.DECLARATIVE.ITEMJ  ?]  end  [  identifier  ?]  ( 


(7.1)  ( parserl  ) 

PACKAGE.DECLARATION  -->  body  PACKAGE.BODY 

-->  identifier  PACKAGE .UNIT 


(7.1)  ( parserl  ) 

PACKAGE .UNIT  — >  is  PACK AGE.TAI L.END 
-->  renames  NAME  ) 


3S 


(6.1)  (parserZ) 

PARAMETER.SPECIFICATION  — >  IOENTIFIER.LIST  :  MODE  NAME  [  :=  EXPRESSION  ?] 


(4.4)  (parsed) 

PRIMARY  — >  numaric.Ii taral 
— >  null 

— >  string.literal 
-->  new  ALLOCATOR 
-->  NAME 
— >  AGGREGATE 

( 7.4 )  I parsed ) 

PRIVATE. 7YPE.SECLARATI0N  —  >  [  limi-tad  ?]  orivate 
'  b  .  1  )  parser I  ) 

PROCEDURE.JNIT  — >  identifier  FORMAL.PART  ?]  is  3UBPR0GRAM.B0DY 

— >  identifiar  FORMAL.PART  ?'  > 

— >  identifier  FORMAL.PART  ?  renames  NAME  J 

( 3 . 9 )  (parserl) 

PROPER.BCDY  — >  procedure  PROCEOURE.UNIT 
—  >  function  FUNCTIONJJNIT 
— >  package  PACKAGE.OECLARATICN 
— >  task  TASK.OECLARATICN 

l 1 . 5  )  : parser!  I 

RANGES  SIMPLE.EXPRESSION  [  . . SIMPLE.EXPRESSION  ?] 

1 1  Z  zarzarZ  i 

PA  :SE_  ST  AT  JilENT  --->  [  NAME  ?]  i 

13  .  l  l parsers  I 

PE  CCRD.SEPSESENTATICN.CLAUSE  — >  [  at  mod  SIMPLE.EXPRESSION  ?] 

[  NAME  at  SIMPLE.EXPRESSION  range  RANGES] 
and  record  > 

(3.71  ( parserZ 1 

RE CORD.TYPE .DEFINITION  — >  COMPONENT.LIST  end  record 
(4.41  ( parsed  I 

RELATION  SIMPLE.EXPRESSION  [  SIMPLE.EXPRESSION.TAIL  ?] 

(4.41  ( parsed ) 

RELATION.T AIL  and  [  then  ?]  RELATION] 

-->  ’  or  [  else  ?]  RELATION] 

-->  xor  RELATION] 

(4.5)  (parser4) 

RELATIONAL.OPERATOR  -->  = 

-->  /= 

-->  < 

—  >  <  = 

—  >  > 

—  >  >= 

(13.1)  ( parserZ ) 

REPRESENTATION.CLAUSE  -->  for  NAME  use  record  RECORD.REPRESENTATION.CLAUSE 

-->  for  NAME  use  [  at  ?]  SIMPLE.EXPRESSION  \ 

(5.8)  (parser3) 

RETURN.ST ATEMENT  [  EXPRESSION  ?]  > 

(10.1)  ( parserO  > 

SECOND ARY.UNIT  -->  LIBRARY.UNIT.BODY 
— >  SUBUNIT 


(9.7.1)  ( parsarl  ! 

SELECT_ ALTERNATIVE  — >  f  whan  EXPRESSION  *>  ?]  accept  ACCEPT.ST ATEMENT 

[  SEQUENCE.OF.STATEMENTS  ?] 

—  >  [  whan  EXPRESSION  =>  ?]  daisy  DELAY_STATEMENT 

[  SEQUENCE.OF.STATEMENTS  ?] 

—  >  [  whan  EXPRESSION  ->  ?]  terminate  > 

(9.7.1)  ( parsarl  ) 

SELECT_ENTRY_CALL  -->  elsa  SEQUENCE.OF.STATEMENTS 

-->  or  dalay  DELAY.STATEMENT  [  SEQUENCE.OF.STATEMENTS  ?] 

(9.7)  ( parsarl  ) 

SELECT_ST ATEMENT  -->  S£ LECT_ST ATEMENT_TAI L  SELECT.ENTRY.CALL  and  salsct 
•  9 . 7  1  i  ( parser  1  I 

3ELECT.STATEMENT.TAIL  —  >  3ELECT_iLTSRNATIVE  [  or  select.alternativej* 

—  >  NAME  ■,  [  SEQUENCE. IF .STATEMENT 3  ?] 

I  4 . 1 .  3  '  i  parser**  I 
SELECTOR  -->  identifier 

— >  character_li teral 
-->  string_literal 
—  >  all 

15.1)  i parser 1  ; 

SEQUENCE.OF.STATEMENTS  [  STATEMENT j  * 

(4.4)  ; parsor3  I 

SIMPLE .EXPRESSION  -->  [  ►  ?]  TERM  [  BINARY. AODING.OPERATCR  TERM]* 

-->  [  -  ?J  TERM  [  3INARY.AOOING.OPERATOR  TERMj‘ 

’4.41  r parsarl  ! 

SIMP  Lc_EXPRESSION.'r  AIL  — >  RE  LATIONAL  .OPERATOR  SIMPLE.EXPPESSION 

-->  [  not  ?]  in  RANGES 

-->  [  not  ?]  in  NAME 

(5.1)  (parserZ) 

SIMP LE_ST ATEMENT  — >  null  » 

-->  ASSIGNMENT.STATEMENT 
~>  PROCEDURE_CALL_ST ATEMENT 
— >  exit  EXIT_ST ATEMENT 
-->  return  RETURN_ST ATEMENT 
-->  goto  GOT O.ST ATEMENT 
— >  delay  DE LAY_ST ATEMENT 

—  >  abort  A80RT_ST ATEMENT 
-->  raise  RAISE .STATEMENT 
— >  ENTRY.C ALL.ST  ATEMENT 
— >  COOE.ST ATEMENT 

(5.1)  ( parsarl  ) 

STATEMENT  -->  [  LABEL  ?1  SIMPLE.ST ATEMENT 

—  >  [  LABEL  ?J  COMPOUND.ST ATEMENT 

(6.3)  I parsarl) 

SLI8P ROGR AM.BOO Y  — >  new  NAME  [  GENERIC. ACTUAL. PART  ?]  i 

— >  separate  ) 

—  >  <>  , 

-->  f  DECLARATIVE .PART  ?]  begin  SEQUENCE.OF.STATEMENTS 
[  exception  [  EXCEPTION.HANDLER]  ?] 
end  [  DESIGNATOR  ?]  ( 

— >  NAME  J 

(3.3.2)  ( parserZ  ) 

SUBTYPE.DECLARATION  -->  identifier  is  SUBTYPE.INDICATION  » 

( 3 . 3 . Z  )  ( parser3  ) 

SUBTYPE.INDICATION  -->  NAME  [  CONSTRAINT  ?] 


(10.2)  (parserO) 

SUBUNIT  —>  separate  (NAME)  PROPER.BODY 

(9.1)  (parserl) 

TASK_B00Y  — >  identifier  is  T ASK_BOO Y_T AIL 

(9.1)  (parserl) 

TASK_BODY^TAIL  — >  separata 

— >  f  DECLARATIVE_PART  ?]  begin  SECHJENCE_OF_STATEMENTS 
[  exception  [  EXCEPTION_HANDLER]  ?] 
end  [  identifier  ?] 

(9.1)  ( parserl ) 

TASK_DECLARATION  — >  body  TASK_BOOY  \ 

—  >  [  type  ?]  identifier  Lis  [  ENTRY.OECIARATIOn] 

[  RE PRESENT A TICN_CLAUSEj*  end  [  identifier  ?]  ?j  ( 

i 4 .4  I  parser!  1 

TERM  — >  FACTOR  [  MULTIPLYING_CPERATOR  FACTOR] 

(3.3.1)  ( parser 2  ) 

TYPEJDECLARATION  — >  identifier  [  OISCRIMINANT_PART  ?] 

[  is  PRIVATE  TYPE_DEFINITION  ?]  > 

— >  identifier  [  DISCRIMINANT.PART  ?] 

[  is  TYPEJ3EFINITI0N  ?]  \ 

(3.3.1)  ( parser 2  ) 

TYPE.DE-INITICN  — >  ENUME RATION_TYPE_0£FINITION 
— >  INTEGER_TYPE_OEFINITION 

-->  digits  FLOATING_OR_FIXED_POINT_CONSTRAINT 
-->  delta  FLOATING  _OR_FIXEO_POINT  ..CONSTRAINT 
-->  array  ARRAY_TYPE_ DEFINITION 

record  R£COR0_TYPE_O£r INITION 
-->  access  SUBTYPE.OEFINITION 
-->  new  SUBTYP£_INDICATION 

(3.7.3)  (parser 2) 

VARIANT  — >  when  CHOICE  [  I  CHOICE]  *>  COMPONENT_LIST 

(3.7.3)  (parser2) 

VARIANT_PART  — >  case  identifier  is  [  VARIANT]  end  case  \ 

(10.1.1)  (parser2) 

WITH_OR_USE_CLAUSE  — >  identifier  [  ,  identifier]  > 


APPENDIX  B 

'ADAMEASURE'  USERS  GUIDE 


1.  Once  you  have  logged  on  a  VT100  terminal,  type  RUN  DEMON  to  begin  execution 
of 'AdaMeasure'.  The  initial  screen  gives  the  general  information  about  the  program. 


*  • 

*  WELCOME  TO  'AdaMEASURE1  * 

*  * 

*  AUTHORED  SY:  LCDR  JEFFREY  L.  NIEDER,  USN  * 

*  LT  KARL  S.  FAIRBANKS  ,  USN  * 

*  * 

*  NAVAL  POSTGRADUATE  SCHOOL  » 

*  DEPARTMENT  OF  COMPUTER  SCIENCE  * 

*  MONTEREY,  CALIFORNIA  * 

*  * 

*  31  OCTOBER  1986  * 

*  * 

*  VERSION  1.0  * 

*  * 

*  This  program  provides  an  automated  software  metric  tool  which  * 

*  uses  quantitative  measures  in  an  affort  to  supply  the  user  with  * 

*  helpful  information  about  the  static  structure  of  a  given  input  * 

*  program.  This  program  is  public  domain  information.  * 

*  * 


it*****#*********************#*****###***#**#***#*****.*##************ 

-  Enter  any  letter  to  continue  - 

2.  Enter  any  letter  to  continue.  This  is  required  because  Ada  filters  out  carriage 
returns  so  just  hitting  ENTER  will  not  cause  execution  to  continue.  The  next  screen 
shown  is  the  MAIN  SELECTION  MENU.  From  here  the  user  enters  the  digits  I,  2 
or  3  to  either  parse  a  file,  view  previously  gathered  data,  or  quit  to  the  operating 
system,  respectively. 


# 

# 

* 

* 

* 

* 

* 

* 

* 

# 

* 

* 

# 


MAIN  SELECTION  MENU 

HERE  ARE  THE  ACTION  CHOICES  AVAILABLE  TO  YOU 
Simply  enter  the  number  of  your  choice 

1  -  PARSE  AN  INPUT  FILE 

2  -  VIEW  PREVIOUSLY  GATHERED  DATA 

3  -  EXIT  TO  OPERATING  SYSTEM 


# 

* 

* 

* 

* 

* 

* 

* 

« 

* 

* 

* 

* 


ft********************************************************#****************-*** 

Choice  = 


3.  If  the  user  selects  number  one  then  he  will  be  prompted  for  the  file  name  of  the  file 
he  wishes  to  have  parsed.  While  parsing  of  the  file  is  in  progress,  the  user  will  see  a 
message  on  the  screen  indicating  at  what  line  number,  in  the  input  file,  the  parser  has 


I 

f 


reached.  When  parsing  of  the  input  file  commences.  AdaMeasure  creates  four  new 
files.  The  four  files  have  the  same  name  as  the  user's  input  file  with  the  following 
extensions:  fn.DATA,  fn.HALS,  fn.RAND,  fn.MISC.  The  meaning  of  each  of  these 
new  files  will  be  explained  later  in  this  user's  guide. 

4.  Upon  conclusion  of  parsing  the  input  file,  or  if  the  user  selects  number  two  from 
the  MAIN  SELECTION  MENU,  the  program  displays  the  METRIC  SELECTION 
PROGRAM.  From  this  menu,  the  user  can  select  any  of  the  listed  metrics,  exit  to  the 
MAIN  SELECTION  MENU,  or  exit  to  the  operating  system. 


*  * 

*  METRIC  SELECTION  MENU  * 

*  * 

*  HERE  ARE  THE  INFORMATION  CHOICES  AVAILABLE  TO  YOU  » 

*  * 

*  Simply  enter  the  number  of  your  choice  # 

*  * 

*  l  -  ‘ HALSTEAO •  METRIC  INFORMATION  * 

*  x 

*  2  -  COMMENT  AND  NESTING  METRIC  INFORMATION  » 

*  * 

*  3  -  ‘HENRY  and  KAFURA1  METRIC  INFORMATION  * 

*  # 

*  4  -  EXIT  TO  MAIN  MENU  * 

x  * 

*  S  -  EXIT  TO  OPERATING  SYSTEM  * 

x  x 


XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXiHtXXXXXXXXXXXXXXXXXXXXXXXX 

Choice  = 

5.  If  number  one  is  selected,  the  Halstead  Metric  choice,  the  next  menu  displayed  is 
the  HALSTEAD  SELECTION  MENU.  From  this  menu,  the  calculations  and 
conclusions  of  the  Halstead  Metric  can  be  selected.  There  also  exists  the  options  of 
exiting  to  the  METRIC  SELECTION  MENU,  or  exiting  to  the  operating  system. 

IHHHtiHHHHt**  it*********************************************)******************** 


X  X 
x  HALSTEAD  SELECTION  MENU  x 
x  * 
*  * 
x  HERE  ARE  THE  HALSTEAD  METRIC  OPTIONS  AVAILABLE  TO  YOU  x 
x  * 
x  Simply  enter  the  number  of  your  choice  x 
x  * 
x  1  -  HALSTEAD  OPERATORS  * 
x  * 
x  2  -  HALSTEAD  OPERANDS  x 
x  * 

*  3  -  HALSTEAO  METRIC  CONCLUSIONS  x 
x  * 
x  4  -  EXIT  TO  METRIC  SELECTION  MENU  * 
»  » 

*  5  -  EXIT  TO  OPERATING  SYSTEM  x 
x  * 


#***##**»*#*#*#*#*»#»** *»*»»****»*»*###*#**»*#*»*»*»*»********#** *****»»«*»** 
Choice  = 
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6.  From  the  HALSTEAD  SELECTION  MENU,  if  number  one  is  selected,  the 
Halstead  operator  data  is  displayed.  The  operator  data  is  stored  in  the  fn.DATA  File. 
The  Halstead  operator  data  includes  the  total  number  of  difFerent  operators  used,  the 
total  number  of  occurences  of  those  operators,  and  the  number  of  occurences  of  each 
individual  operator. 

7.  If  number  two  from  the  HALSTEAD  SELECTION  MENU  is  chosen,  the 
HALSTEAD  OPERAND  SELECTION  MENU  is  displayed.  From  'his  menu  the 
uiiferent  classes  of  operands  and  their  data  can  be  selected  'or  viewing.  Use  available 
for  selection  are  exiting  to  the  HALSTEAD  SELECTION  MENU,  ana  exiting  to  the 
operating  system. 


4  * 

4  HALSTEAD  OPERAND  SELECTION  MENU  * 

4  * 

*  * 

*  HERE  IS  THE  OPERAND  DATA  AVAILABLE  * 

*  # 

4  Simply  enter  thQ  number  of  your  choice  * 

4  * 

*  I  -  PROCEDURE,  FUNCTION,  PACKAGE  INFORMATION  4 

4  * 

4  2  -  VARIABLES  AND  CONSTANTS  INFORMATION  4 

*  4 

4  3  -  TASKS  AND  3L0CKS  INFORMATION  4 

4  4 

4  4  -  EXIT  TO  HALSTEAD  SELECTION  MENU  4 

4  4 

4  5  -  EXIT  TO  OPERATING  SYSTEM  4 

4  4 


44444444444444444444444444444444444444444444444444444444444444444444444444444 
Choice  = 

S.  From  the  HALSTEAD  OPERAND  SELECTION  MENU,  selection  of  any  of  the 
operand  calasses  will  show  each  identifier  and  number  of  occurences  of  for  that 
particular  class.  The  data  for  all  operand  classes  is  stored  in  the  fn.RAND  file. 

9.  Back  to  the  HALSTEAD  SELECTION  MENU.  If  the  selection  is  number  three, 
the  Halstead  Metric  conclusions  are  displayed.  The  conclusions  include  the  input  file's 
calculated  theoritical  length,  its  actual  length,  the  difference  between  the  two  lengths, 
and  some  comments  about  that  difference.  The  Halstead  Metric  conclusion  data  is 
stored  in  the  fn.HALS  file. 

10.  Back  to  the  METRIC  SELECTION  MENU.  If  the  selection  number  is  two,  the 
comment  and  nesting  metric  information  is  displayed  on  the  screen.  The  comment 
metric  information  includes  the  total  number  of  lines  in  the  input  file,  the  total  number 
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APPENDIX  C 

'ADAMEASURE'  PROGRAM  LISTING  -  PART  1 


TITLE: 


AN  ADA  SOFTWARE  METRIC 


MOOULE  NAME: 
DATE  CREATED: 
LAST  MOO I F I c  0 : 


PACKAGE  BYPASS, FUNCTION 
25  JUL  86 
02  DEC  3b 


AUTHORS: 


LCOR  JEFFREY  L .  NIEDER 
LT  KARL  S.  FAIRBANKS,  JR. 


DESCRIPTION:  This  package  con-tains  -the  workhorse  Function 
required  to  identify  each  individual  token. 


— •»****#***•*#**********■**■****•***■*-#«**•»*#**«***#•»*•**•******•****■*•***  -  - 


with  HAL$TEAO_METRIC  >  BYPASS, 3UPP0RT_FUNCTI0NS ,  GLOBAL,  GLOBAL_P ARSER ; 
use  HALSTEAO.METRIC,  BYPASS_SUPPCRT_FUNCTIONS ,  GLOBAL,  GL0BAL_PARSER  > 

package  BYPASG_FUNCTION  is 

function  3YPASSI TOKEN, ARRAY_ENTRY, CODE  :  integer  I  return  boolean* 
procedure  CONOUCT_R£SERVE_wORO_TESTi CONSUME  :  in  out  boolean  I  * 
end  3YPAS3_C'JNCTI0N* 


package  body  BYPASS_FUNCTION  is 

--  this  function  compares  the  lexeme  of  the  current  token  with  the 

token  currently  being  sought  by  the  parser.  If  the  current  token 
type  is  identifier,  then  a  test  is  conducted  to  ensure  it  is  not 
—  a  reserved  word. 

function  BYPASS! TOKEN_ARRAY_ENTRY_COOE  :  integer)  return  boolean  is 
CONSUME  :  boolean  :=  FALSE  j 

LEXEME  string!  1 .  .LINESIZE  )  ) 

SIZE  :  natural* 

begin 

GET_CURRENT_TOKEN_RECORD(CURRENT_TOKEN_RECORD,  LEXEME_LENGTH ) ) 

LEXEME  :=  CURRENT_TOKEN_RECORD . LEXEME  * 

SIZE  :=  CURRENT_TOKEN_RECORD.LEXEME_SIZE  -  1) 

case  TOKEN_ARRAY_ENTRY_COOE  is 
when  TOKEN_IDENTIFIER  => 

if  (CURRENT_TOKEN_RECORD.TOKEN_TYPE  =  IDENTIFIER)  then 
CONSUME  :=  TRUE) 

CONOUCT_RESERVE_WORD_TEST( CONSUME  )> 
end  if) 

if  (CONSUME  I  then 

CONVERT_UPPER_CASE( LEXEME ,  SIZE  >) 

OPERAND_METRIC(HEAD_NODE,  CURR£NT_TOKEN_RECORD ,  DECLAREJTYPE  ) ) 
DECLARE_TYPE  :=  VARIABLE_DECLARE ) 
end  if ) 

when  TOKEN_NUMERIC_LITERAL  => 

if  ( CURRENT_TOKEN_RECORD . TOKEN_TYPE  =  NUMERIC_LIT )  then 
CONSUME  :=  TRUE) 

DECLARE_TYPE  :=  CONST ANT_DECL ARE ) 

OPERAND_METRIC( HEA0_NODE ,  CURRENT_TOKEN_RECORD ,  DECLARE„TYPE  )  * 
DECLARE_TYPE  :=  VARIABLE_DECLARE  ) 
end  i f ) 
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I.»  *.»  I 


when  T OKEN_CH ARACTER, LITERAL  => 

if  ( CURR£WT_TOKEN_R£CORO . TOKEN_TYPE  =  CHARACTER_LIT  1  than 
CONSUME  :=  TRUE  ) 
and  if) 

whan  TOKEN_ STRING.. LITERAL  => 

if  (CURRENT_TOKEN_RECORD.TOKEN_TYPE  =  STRING.LIT )  than 
CONSUME  :=  TRUE ) 
and  if ) 

when  TOKEN_END  => 

if  1 ADJUST_LEXEME( LEXEME,  SIZE)  =  "and")  than 
CONSUME  :=  TRUE  1 
end  i.f ; 

when  TCKEN_3EGIN 

if  l AOJUST.LEXEMEI LEXEME .  SIZE)  =  "begin")  then 
CONSUME  : =  TRUE  ; 
end  if  ) 

whan  TOKEN.IF  => 

if  (AOJUST_LEXEME( LEXEME,  SIZE)  =  "if")  than 
CONSUME  :=  TRUE) 
and  if ; 


whan  TOKEN_7HEN  -> 

if  I AOJUST_LEXEMEl LEXEME,  SIZE  I 
CONSUME  :=  TRUE  ) 
and  if ) 


'  then"  )  then 


wnen  '"OKEN.iLSIF  => 

if  1  ADJUST..  EXEME I  LEXEME,  SIZE)  *  "alsif”)  then 
CONSUME  :*  TRUE) 
end  i  f ) 

whan  TOKEN_ELSE  => 

if  <ADJUST_LEXEME(  LEXEME,  SIZE)  =  "else")  then 
CONSUME  :=  TRUE) 
end  if ) 

when  TOKEN, WHILE  => 

if  <AOJUST_LEXEME< LEXEME,  SIZE)  =  "while”)  then 
CONSUME  :=  TRUE) 
end  if) 

whan  TOKEN, LOOP  => 

if  < ADJUST_LEXEME< LEXEME,  SIZE)  =  "loop")  then 
CONSUME  :=  TRUE) 
end  if ) 

whan  TOKEN_CASE  => 

if  l ADJUST_LEXEME( LEXEME ,  SIZE)  =  "case")  then 
CONSUME  :=  TRUE) 
end  if) 

whan  TOKEN_WHEN  => 

if  < ADJUST_LEXEME( LEXEME,  SIZE)  =  "when")  then 
CONSUME  :=  TRUE) 
end  if ) 

whan  TOKEN_DECLARE  => 

if  (AOJUST_LEXEME( LEXEME,  SIZE)  =  "declare")  than 
CONSUME  :=  TRUE) 
end  if) 

when  TOKEN_FOR  => 

if  I ADJUST_LEXEME( LEXEME,  SIZE)  =  "for”)  then 
CONSUME  :=  TRUE) 


v  \  ,v.\  >' 


■■ 
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end  if) 


when  TOKEN.OTHERS  => 

if  (ADJUST.LEXEMEI LEXEME,  SIZE)  =  "others" )  then 
CONSUME  :=  TRUE  ) 
end  if ) 

when  TOKEN.RETURN  *> 

if  (AD JUST .LEXEME (LEXEME,  SIZE)  =  "return")  then 
CONSUME  :=  TRUE) 
end  if) 

when  TOKEN.EXIT  => 

if  (ADJUST. LEXEME! LEXEME,  SIZE)  =  "exit”)  then 
CONSUME  :  =  TRUE 
and  ;f  v 

when  TOKEN. PROCEDURE  -> 

if  ( ADJUST.LEXEMEI LEXEME ,  SIZE)  =  "Drocedure"  )  then 
CONSUME  :  =  TRUE) 
end  if ) 

when  TOKEN.FUNCTION  => 

if  (ADJUST.LEXEMEI LEXEME,  SIZE)  =  "function")  then 
CONSUME  :=  "RUE ) 
end  if ) 

when  TOKEN.WITH  => 

if  I ADJUST.LEXEMEI LEXEME,  SIZE)  =  "with")  then 
CONSUME  :  =  TRUE) 
end  : f ) 


when  TCKEN.USE  => 

if  (AOJUST.LEXEME I  LEXEME,  SIZE)  =  "use")  then 
CONSUME  :=  TRUE) 
end  if ) 

when  TOK.EN_PACK.AGE  => 

if  (ADJUST.LEXEMEI LEXEME,  SIZE)  *  "pacKage" )  then 
CONSUME  :=  TRUE) 
end  if ) 

when  TOKEN.BODY  => 

if  (ADJUST.LEXEMEI  LEXEME,  SIZE)  =  "body")  then 
CONSUME  :=  TRUE) 
end  if  > 

when  TOKEN.RANGE  => 

if  (ADJUST.LEXEMEI LEXEME,  SIZE)  =  "range")  then 
CONSUME  :=  TRUE) 
end  if) 

when  TOKEN.IN  => 

if  (ADJUST.LEXEMEI LEXEME,  SIZE)  =  "in")  then 
CONSUME  :=  TRUE) 
end  if) 

when  TOKEN.OUT  -> 

if  (ADJUST.LEXEMEI LEXEME,  SIZE)  =  "out")  then 
CONSUME  :=  TRUE) 
end  if) 

when  TOKEN.SUBTYPE  => 

if  (ADJUST.LEXEMEI LEXEME,  SIZE)  =  "subtype")  then 
CONSUME  :=  TRUE) 
end  if ) 

when  TOKEN.TYPE  => 

if  ( AO JUST.LEXEMEI LEXEME,  SIZE)  =  "type")  then 


48 


CONSUME  :=  1  UEk 
end  if  k 

when  TOKEN_IS  => 

if  ( AOJUST_LEXEME< LEXEME ,  SIZE)  =  "is")  than 
CONSUME  :=  TRUE  k 
and  ifk 

whan  TOKEN.NULL  => 

if  (ADJUST_LEXEME( LEXEME,  SIZE)  =  "null")  than 
CONSUME  :=  TRUE k 
and  ifk 

whan  TOKEN_ACC£SS  => 

if  (ADJUST_LEXEME( LEXEME,  SIZE)  =  "access")  then 
CONSUME  :=  TRUE ( 
and  ifk 

when  TOKEN_ARRAY  => 

if  lADJUST_LEXEMEt LEXEME,  SIZE)  =  "array")  then 
CONSUME  :=  TRUE  k 
and  ifk 

whan  TQKEN_OIGITS  => 

if  <AOJUST_L£XEME( LEXEME,  SIZE)  =  "digits")  then 
CONSUME  :=  TRUE k 
end  i f  > 

whan  TOKEN_DELTA  => 

if  I ADJUST_LEXEMEl LEXEME ,  SIZE)  =  "delta")  then 
CONSUME  ;  -  TRUE', 
and  1 f  k 

when  TOKEN_RECORO_STRUCTURE  => 

if  (ADJUST_LEXEME( LEXEME,  SIZE)  =  "record")  then 
CONSUME  :=  TRUE  k 
end  if  k 

when  TOKEN_CONSTANT  => 

if  <ADJUST_LEXEME( LEXEME,  SIZE)  =  "constant")  than 
CONSUME  :=  TRUE  k 
and  if  k 

when  TOKEN_NEH  => 

if  (AOJUST_LEXEME( LEXEME,  SIZE)  =  "new")  then 
CONSUME  :=  TRUE k 
and  ifk 

when  TOKEN_EXCEPTION  => 

if  l ADJUST_LEXEME( LEXEME,  SIZE)  =  "exception")  than 
CONSUME  :=  TRUE) 
end  ifk 

whan  TOKEN_RENAMES  => 

if  (ADJUST_LEXEME( LEXEME,  SIZE)  =  "renames")  then 
CONSUME  :=  TRUE k 
and  ifk 

whan  TOKEN_PRIVATE  => 

if  (AOJUST_LEXEME I  LEXEME,  SIZE)  =  "private”)  then 
CONSUME  :=  TRUE  k 
end  ifk 

when  TOKEN_LIMITE0  => 

if  < ADJUST_LEXEME( LEXEME,  SIZE)  =  "limited")  then 
CONSUME  :=  TRUE) 
end  ifk 


when  TOKEN  TASK  => 


if  I ADJUST_LEXEME( LEXEME,  SIZE)  =  "task")  than 
CONSUME  :=  TRUE  > 
and  ifv 

whan  TOKEN_ENTRY  => 

if  l ADJUST_LEXEME( LEXEME,  SIZE)  =  "entry"  )  then 
CONSUME  :=  TRUE  ) 
and  if) 

whan  TOKEN_ACCEPT  => 

if  (AOJUST_LEXEME( LEXEME,  SIZE)  =  “accept")  then 
CONSUME  :=  TRUE ) 
end  if  > 

whan  TOKEN.OELAY  => 

if  i ADJUST_LEXEME( LEXEME ,  SIZE  I  =  “delay")  then 
CONSUME  TRUE  ) 
end  if  ) 

whan  TOKEN_SELECT  => 

if  I AOJUST_LEXEME( LEXEME,  SIZE)  =  "select")  then 
CONSUME  :=  TRUE  ) 
end  ifv 

when  TOK£N_TERMINAT£  => 

if  ( ADJUST_LEXEME( LEXEME,  SIZE)  =  "terminate")  then 
CONSUME  :=  TRUE) 
end  if ) 

when  TOKEN_ABORT  => 

if  l ADJUST_IEXEME( LEXEME,  SIZE)  =  “abort")  then 
CONSUME  ;*  TRUE) 
end  if ) 

when  TOKEN_SEPARATE  => 

if  (ADJUST_LEXEME( LEXEME,  SIZE)  =  "separate")  than 
CONSUME  :=  TRUE) 
end  if) 

whan  TOKEN_RAISE  => 

if  ( ADJUST_LEXEME( LEXEME ,  SIZE)  =  "raise")  then 
CONSUME  :=  TRUE) 
end  if ) 

when  TOKEN_GENERIC  => 

if  (ADJUST_LEXEME( LEXEME,  SIZE)  =  "generic")  then 
CONSUME  :=  TRUE) 
end  if) 

when  TOKEN_AT  => 

if  <ADJUST_LEXEME(  LEXEME,  SIZE)  =  "at")  then 
CONSUME  :=  TRUE) 
end  if) 

whan  TOKEN_RE VERSE  => 

if  (AOJUST_LEXEME( LEXEME,  SIZE)  =  "reverse")  than 
CONSUME  :=  TRUE) 
and  if) 

whan  TOKEN_DO  => 

if  < ADJUST_LEXEME( LEXEME,  SIZE)  =  "do")  then 
CONSUME  :=  TRUE) 
end  if ) 

when  TOKEN_GOTO  => 

if  ( AD JUST_LEXEME( LEXEME,  SIZE)  =  "goto")  then 
CONSUME  :=  TRUE) 
end  if  > 
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when  TQKEN_OF  => 

if  (ADJUST.LEXEME! LEXEME,  SIZE)  =  "of")  then 
CONSUME  :=  TRUE  i 
end  ifi 

when  TOKEN_ALL  => 

if  (ADJUST_LEXEME( LEXEME,  SIZE)  =  "all")  then 
CONSUME  :=  TRUE) 
end  if v 

when  TOKEN_PRAGMA  => 

if  ( AOJUST_LEXEME ! LEXEME  ,  SIZE)  =  "pragma")  then 
CONSUME  :=  TRUE) 
and  if» 

whan  TOKEN. AND 

if  ( ADJUST. LEXEME  I  LEXEME,  SIZE)  =  "and")  then 
CONSUME  : =  TRUE i 
and  i f ) 

OPERATOR.METRICI TOKEN.AND ,  CONSUME,  RESERVE.WORD.TEST ) i 
when  TOKEN.OR  => 

if  ( ADJUST.LEXEME! LEXEME  >  SIZE)  =  "or")  then 
CONSUME  :=  TRUE  > 
and  ifi 

OPERATOR.METRICI TOKEN.OR,  CONSUME,  RESERVE.WORD.TEST!) 
when  TOKEN. NOT  => 

if  I AOJUST.LEXEMEI LEXEME ,  SIZE)  =  "not")  then 
CONSUME  :=  TRUE i 
and  i  f i 

OPERATOR.METRICI TOKEN.NOT,  CONSUME,  RESERVE.WORD.TEST  U 
whan  TOKEN.XOR  => 

if  (  AO JUST.LEXEMEI  LEXEME  ,  SIZE  I  =  Nor"  1  than 
CONSUME  :=  TRUE i 
end  ifi 

OPERATOR.METRICI TOKEN.XOR,  CONSUME,  RESERVE.WORD.TEST ) j 
whan  TOKEN.MOO  => 

if  I ADJUST.LEXEME I  LEXEME ,  SIZE)  =  "mod")  then 
CONSUME  :=  TRUE) 
end  ifi 

OPERATOR.METRICI TOKEN.MOO,  CONSUME,  RESERVE.WORD.TEST ) i 
when  TOKEN.REM  => 

if  (ADJUST.LEXEME (LEXEME,  SIZE)  =  "ram" I  then 
CONSUME  :=  TRUE) 
end  if  i 

OPERATOR_METRIC( TOKEN.REM,  CONSUME,  RESERVE.WORD.TEST  )  i 
when  TOKEN. ABSOLUTE  => 

if  (ADJUST.LEXEME (LEXEME,  SIZE)  =  "abs"  )  then 
CONSUME  :=  TRUE) 
end  ifi 

OPERATOR.METRICI TOKEN.ABSOLUTE,  CONSUME,  RESERVE.WORD.TEST ) i 

when  TOKEN.ASTERISK  => 

if  (ADJUST.LEXEME (LEXEME,  SIZE)  =  "*")  then 
CONSUME  :=  TRUE i 
end  ifi 

OPERATOR.METRICI TOKEN.ASTERISK,  CONSUME,  RESERVE.WORD.TEST)) 
when  TOKEN.SLASH  => 

if  (ADJUST.LEXEME (LEXEME,  SIZE)  =  "/" )  then 
CONSUME  :=  TRUE i 
end  ifi 

OPERATOR.METRICI TOKEN.SLASH ,  CONSUME ,  RESERVE.WORD.TEST  ) ) 
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when  TOKEN_EXPONENT  => 

if  (AOJUST.LEXEMEl LEXEME,  SIZE  I  =  "**"  >  then 
CONSUME  :=  TRUE > 
end  i f  t 

OPERATOR_METRIC(TOKEN_EXPONENT,  CONSUME,  RESERVE_HORD_TEST  )  ! 
when  TOKEN_PLUS  => 

if  ( AD JUST_LEXEME< LEXEME,  SIZE)  =  M+"  )  then 
CONSUME  :=  TRUE  > 
end  if » 

OPERATOR_M£TRIC( TOKEN_PLUS,  CONSUME,  RESERVE_HORD_TEST  )> 
when  TOKEN.MINUS 

if  I ADJUST.LEXEME! LEXEME ,  SIZE!  =  ”-M  l  then 
CONSUME  : =  TRUE  ; 
and  i  f ; 

OPERATOR_METRICITOKEN_MINUS,  CONSUME,  RESERVE _HORO_TE5T ) ! 
when  TOKEN, AMPERSAND 

if  ( ADJUST, LEXEME! LEXEME .  SIZE)  =  "S" )  then 
CONSUME  :=  TRUE s 
end  i f i 

OPERATOR_METRIC( TOKEN_AMPERSAND ,  CONSUME,  RESERVE_HORD_TEST  )  s 
when  T0KEN.HQUAL3 

if  l  ADJUST.LEXEMEi  LEXEME,  SIZE)  *  "=••  )  then 
CONSUME  : -  TRUE  j 
end  i  f  ! 

OPERATOR_METRIC(  TGKEN.EQUALS  .  CONSUME,  RES£RVE_ifORD_TEST  )  i 

when  TOKEN. NOT, EQUALS  => 

if  i  ADJUST.  LEXEME  I  LEXEME.  SIZE!  =  •'/=")  then 
CONSUME  :  -  TRUE’, 
end  i f i 

OPERATORMETRIC) TOKEN_NOT_EQUALS ,  CONSUME ,  RESERVE_WORO_TEST  )  ! 

when  TOKEN_.LESS.THAN  => 

if  (ADJUST_LEXEME( LEXEME,  SIZE)  =  "<" )  then 
CONSUME  :=  TRUE ! 
end  if  i 

OPERATOR_METRIC( TOKEN_LESS_THAN,  CONSUME,  RESERVE_WORD_TEST  )  j 

when  TOKEN  ,LESS_THAN_EQUALS  => 

if  I AOJUST_LEXEME( LEXEME,  SIZE)  =  "<  =  "  )  then 
CONSUME  :=  TRUE ! 
end  if  i 

OPERATOR_METRIC(TOKEN_LESS_THAN_EQUALS,  CONSUME,  RESERVE_WORD_TEST  ) ! 

when  TOKEN_GREATER_THAN  => 

if  <  ADJUST_LEXEME<  LEXEME,  SIZE)  =  ">•■ }  then 
CONSUME  :=  TRUE  j 
end  if  v 

OPERATOR_METRIC<  TOKEN_GREATER_THAN »  CONSUME,  RESERVE_HORD_TEST  )  ! 

when  TOKEN_GREATER_THAN_EQUALS  => 

if  (AOJUST_LEXEME( LEXEME,  SIZE)  =  ">=”  )  then 
CONSUME  :=  TRUE  ! 
end  if  i 

OPERATOR_METRIC( TOKEN_GREATER_THAN_EQUALS ,  CONSUME,  RESERVE_WORD_TEST  )  | 

when  TOKEN. ASSIGNMENT  => 

if  < AOJUST_LEXEME( LEXEME,  SIZE)  =  " : ="  )  then 
CONSUME  :=  TRUE > 
end  if » 

OPERATOR_METRIC( TOKEN.ASSIGNMENT  ,  CONSUME,  RESERVE_WORD_TEST  ) ! 
when  TOKEN.COMMA  => 

if  (ADJUST_LEXEME( LEXEME,  SIZE)  =  ",")  then 
CONSUME  :=  TRUE! 


i 


end  if) 

when 

TOKEN_SEMICOLON  => 
if  (ADJUST.LEXEMEl LEXEME, 
CONSUME  :=  TRUE) 
end  if) 

SIZE) 

then 

when 

TOKEN_PERIOD  => 
if  ( ADJUST.LEXEMEl LEXEME , 
CONSUME  :=  TRUE) 
end  if) 

SIZE) 

=  **-*•) 

then 

when 

TOKEN_LEFT_PAREN  => 
if  (ADJUST_LEXEME( LEXEME, 
CONSUME  :=  TRUE) 
end  if) 

SIZE  ) 

=  ■•(••) 

then 

when 

TOKEN_RIGHT_PAREN  => 
if  (ADJUST. LEXEME! LEXEME, 
CONSUME  :=  TRUE) 
end  if) 

SIZE  1 

=  ••  r ) 

then 

when 

TOKEN.COLON  => 
if  ( ADJUST.LEXEME ( LEXEME , 
CONSUME  :=  TRUE) 
end  if ) 

SIZE) 

=  ":"  ) 

then 

when 

TOKEN. APOSTROPHE  => 
if  (ADJUST.LEXEMEl LEXEME, 
CONSUME  :=  TRUE) 
end  i f ) 

SIZE) 

>  II  1  «•  1 

then 

when 

TOKEN.RANGE.DOTS  => 
if  ( ADJUST.LEXEMEl LEXEME , 
CONSUME  :=  TRUE) 
end  if) 

SIZE) 

—  .  M  ) 

then 

when 

TOKEN.ARROW  => 
if  (ADJUST.LEXEMEl LEXEME, 
CONSUME  :=  TRUE) 
end  if) 

SIZE) 

s  ••  =  >'•) 

then 

when 

TOKEN.BAR  => 

if  (ADJUST.LEXEMEl LEXEME, 
CONSUME  :=  TRUE) 
end  if ) 

SIZE  ) 

—  It  II  J 

then 

when 

TOKEN.BRACKETS  => 
if  (ADJUST.LEXEMEl LEXEME, 
CONSUME  :=  TRUE) 
end  if) 

SIZE  ) 

=  ■•<>»• ) 

then 

when 

TOKEN.LEFT.BRACKET  => 
if  (ADJUST.LEXEMEl LEXEME, 
CONSUME  :=  TRUE) 
end  if ) 

SIZE  ) 

=  "<<" ) 

then 

when 

T OKEN.RIGHT.BR ACKET  => 
if  (ADJUST.LEXEMEl LEXEME, 
CONSUME  :=  TRUE) 
end  if) 

SIZE  ) 

-  M>>ll  ) 

then 

when  others  =>  null) 
end  easel 

ADJUST.TOKEN.BUFFERI  CONSUME ,  RESERVE.WORD.TEST  )  ) 

return  (CONSUME)) 
end  BYPASS ) 
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■h.  •  -  '  j  V.  • 

—  this  procedure  tests  ell  identifiers  to  verify  they  ere  not  reserved 

--  words.  The  most  common  reserved  words  ere  tested  first  end  the  process 

—  halts  when  e  match  is  made  or  the  test  fails, 
procedure  CONDUCT_RESERVE_WORD_TEST< CONSUME  :  in  out  boolean)  is 
begin 

RESE RVE_WORD_TEST  :=  TRUE* 

for  RESERVE_WORD_INDEX  in  TOKEN_END. ,TOKEN_ABSOLUTE  loop 
if  ( BYPASS!  RESERVE_HORD_INDEX))  then 
CONSUME  :=  FALSE  * 
end  if  * 

exit  when  not  CONSUME* 
end  loop  * 

RESE RVE_WORD_ TEST  ;s  FALSE* 
end  CONDUCT_REScRVE_WORO_TEST  * 


end  BYPASS.FUNCTION* 


TITLE: 


AN  ADA  SOFTWARE  METRIC 


LV 


MODULE  NAME:  PACKAGE  8YPASS_SUPP0RT_FUNCTI0NS 

DATE  CREATED:  03  OCT  86 

LAST  MOOIFIED :  03  DEC  86 


AUTHORS: 


LCDR  JEFFREY  L.  NIEDER 
LT  KARL  S.  FAIRBANKS,  JR. 


DESCRIPTION:  This  package  contains  the  procedures  and 

function  required  to  support  the  function  BYPASS. 


--***■**•****•***■********•********•******<-*■♦**********»****#***********- 


with  SCANNER.  3L09AL  ,  GLOBAL. °ARSER  ,  TEXT. 10 » 
use  SCANNER,  GLC3AL,  3L08AL.PARSER ,  TEXT.IO* 


package  3YPASS_3UPP0RT_'UNCTI0NS  is 

package  NEW.INTEGER.IO  is  new  TEXT.IO. INTEGER.IOI integer  >  * 
use  NEW.INTEGER.IO* 


procedure  GET.CURRENT .TOKEN .RECORD 

:CURRENT_TOKEN. RECORD  :  in  out  TOKEN.RECORD.TYPE * 
LEXEME..ENGTH  in  out  integer  I  * 
procedure  TRACE! TRACc.TCKEN  •  in  string* 

CONSUME.  RESERVE _WCRD_TEST  :  in  boolean)* 
procedure  A0JUST_T0KEN.3UFFER( CONSUME ,  RESSRVE.WORD.TEST  :  in  boolean)* 
function  ADJUST. LEXEME ( INPUT.LEXEME  :  string*  SIZE  :  natural)  re  turn  string* 
oroceaure  CONVERT. LOWER. CASE! INPUT. .EXEME  :  in  out  string* 

LENGTH  :  in  out  integer  i  * 

procedure  CCNVERT.'JPPER.CASE (  INPUT. LEXEME  :  in  out  string* 

LENGTH  :  in  out  integer  I* 


end  3YPAS3.SUPPCRT. FUNCTIONS  * 


package  body  BYPASS.SUPPORT.FUNCTIONS  is 

--  this  procedure  handles  the  loading  of  the  token  record  buffer,  flushes 
—  out  comments  (while  keeping  count  of  them)  and  separators,  and  prints 
out  the  current  line  being  parsed  to  the  screen, 
procedure  GET.CURRENT.TOKEN.RECORD 

( CURRENT.TOKEN.RECORO  :  in  out  TOKEN.RECORD.TYPE  * 

LEXEME.LENGTH  :  in  out  integer)  is 
DISPLAY.DELAY  :  constant  integer  :=  250* 
begin 

if  ( FIRST.TIME.LOAD  I  then 

while  ( PLACE.HOLDER.INDEX  /-  TOKEN. ARRAY.SIZE  ♦  1)  loop 
if  not  I ENO.OF.FILE! TEST.FILE ) )  then 
GET.NEXT.TOKEN! TOKEN.RECORD  )  * 
if  ( (TOKEN.RECORD. TOKEN.TYPE  /=  SEPARATOR)  and 
( TOKEN.RECORD. TOKEN.TYPE  /=  COMMENT))  then 
TOKEN.RECORD.BUFFER! PLACE.HOLDER.INDEX)  : =  TOKEN.RECORD* 
PLACE.HOLDER.INDEX  :=  PLACE.HOLDER.INDEX  ♦  1* 
elsif  ( TOKEN.RECORD. TOKEN.TYPE  =  COMMENT)  then 
COMMENT.COUNT  :=  COMMENT.COUNT  +  1* 
end  if  * 
else 

TOKEN.RECORD.BUFFER! PLACE.HOLDER.INDEX). TOKEN.TYPE  :=  ILLEGAL* 
TOKEN.RECORD.BUFFER! PLACE.HOLDER.INDEX  ) . LEXEME.SIZE  :=  1* 
PLACE.HOLDER.INDEX  :=  PLACE.HOLDER.INDEX  ♦  1* 
end  if* 
end  loop* 

FIRST.TIME.LOAD  :=  FALSE* 

FULL  :=  TRUE* 

PLACE.HOLDER.INDEX  :=  1* 


*  .  e 

‘  .  *  a  ^  .  •  ,  •  „■*  »  •  a  *  A  »*'*  „  « ."s  .’a  , 
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•It if  ( ( TOKEN_ARRAY_INDEX  =  0)  and  (not  (FULL)))  then 

TOKEN.RECORD.BUFFERf  0  )  :=  TOKEN.RECORO.BUFFER! TOKEN.ARRAY.SIZE ) ) 
while  ( PLACE.HOLDER.INDEX  /=  TOKEN.ARRAY.SIZE  +  1)  loop 
if  not  ( END_OF_FILE( TEST_F1LE  ) )  then 
GET.NEXT.TOKENt TOKEN.RECORD ) ) 
if  ( < TOKEN.RECORD. TOKEN.TYPE  /=  SEPARATOR)  and 
(TOKEN.RECORD. TOKEN.TYPE  /-  COMMENT))  then 
TOKEN.RECORD.BUFFERI PLACE.HOLDER.INDEX)  :=  T0KEN_REC0RD  t 
PLACE.HOLDER.INDEX  :=  PLACE_HOLDER_INDEX  +  1) 

•lsif  (TOKEN.RECORD. TOKEN.TYPE  =  COMMENT)  then 
COMMENT.COUNT  :=  C0MMENT_C0UNT  +  1) 
end  if t 
else 

TOKEN_RECORD_SUFFER( PLACE, HOLDER. INDEX  ) . T0KEN_TYPE  :=  ILLEGAL t 
TOKEN.RECORO.BUFFER! PLACE.HOLOER.INDEX  ) . LEXEME_SIZE  :*  1; 
PLACE.HOLDER.INDEX  :  -  PLACE  .HOLDER.  INDEX  +  1  ) 
end  i f s 
end  loop t 

PLACE. HOLDER. INDEX  :=  1) 

FULL  :=  TRUE  ) 
end  if  t 

if  not  (  RESERVE.WORO.TEST  )  then 

CURRENT.TCKEN. RECORD  : =  TOKEN. RECORD .BUFFER! TOKEN. ARRAY. INDEX  )  t 
end  l f t 

LEXEME .LENGTH  CURRENT_T0KEN_REC0RD.LEXEME.3IZE  -  1) 
if  (CURRENT_TOKEN_RECORD.TOKEN.TYPE  =  IDENTIFIER)  then 

CONVERT.LOWER.CASE ! CURRENT .TOKEN. RECORD . LEXEME ,  LEXEME.LENGTH  )  * 
and  ift 

STATUS.COUNTER  3T ATUS.COUNTER  *  it 

if  ( STATUS.COUNTER  =  DISPLAY.OELAY  )  ‘hen 
new.linet 
CLEARSCREEN) 

CONVERT .UPPER.CASEt  DATA.FILE.NAME ,  DAT A.F1LE .SIZE  )  } 

put( "Parse  of  "))  put! ADJUST.LEXEMEI OATA.FILE.NAME ,  DATA.FILE.SIZE ) ) ) 
put  ( 11  in  progress,  at  line  number  "))  put(  TOTAL.LINES.INPUT ,  3)) 
STATUS.COUNTER  :=  0) 
end  if  t 

end  GET.CURRENT.TOKEN.RECORD  ) 


procedure  TRACE ( TRACE.TOKEN  :  in  string) 

CONSUME,  RESERVE.WORD.TEST  :  in  boolean)  is 

begin 

if  (CONSUME)  and  then  not  (RESERVE.WORD.TEST)  then 
put!  RESULT.FILE  ,  "Parsed  a(n)  ")) 
putt RESULT.FI LE,  TRACE.TOKEN)) 
new.linel RESULT.FILE )) 
end  if) 
end  TRACE) 


—  this  procedure  adjusts  the  pointer  to  the  token  record  buffer, 
procedure  ADJUST.TOKEN.BUFFERI CONSUME ,  RESERVE.WORD.TEST  :  in  boolean)  is 
begin 

if  ((CONSUME)  and  not  (RESERVE.WORD.TEST))  then 

TOKEN.ARRAY.INDEX  :=  ( TOKEN.ARRAY.INDEX  ♦  1)  mod  SO) 
if  (TOKEN.ARRAY.INDEX  =  0)  then 
FULL  :=  FALSE) 
end  if) 
end  if t 

end  ADJUST.TOKEN.BUFFER ) 
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—  this  function  takas  as  input  tha  152  charactar  input.lexeme  and  ganaratas 

—  a  variable  length  string  basad  on  tha  actual  size  of  tha  input-lexeme, 
function  ADJUST-LEXEME! INPUT-LEXEME  :  strings  SIZE  :  natural)  return  string  is 

subtype  LEXEME-BUFFER  is  string! 1. .SIZE  )  t 
ADJUSTED-LEXEME  :  LEXEME-BUFFER  ) 
begin 

for  I  in  1..SIZE  loop 

ADJUSTED-LEXEME! I )  :=  INPUT-LEXEME ( I ) ) 
end  loop) 

return  ( ADJUSTED-LEXEME ) ( 
end  ADJUST_LEXEME) 


procedure  CONVERT_LCWER_CASE! INPUT_LEXEME  :  in  out  string) 

LENGTH  :  in  out  integer )  is 
CONVERSION-FACTOR  :  constant  integer  :  =  32) 

—  difference  between  upper  case  and  lower  case  letters  in  ASCII 
IETTER_VALUE  :  integer) 
begin 

for  I  in  1.. LENGTH  loop 

if  ( INPUT_LEXEME 1 1 )  in  UPPER_CASE_LETTER  )  then 

LETTER_VALUE  :=  character 'post INPUT-LEXEME! I  )  I  ♦  CONVERSION_FACTOR) 
INPUT_LEX£ME( I )  :=  character 'val! LETTER_VALUE  ) ) 
end  if ) 
end  loop) 

end  CONVERT_LOWER_CASE ) 


procedure  CONVERT JJPPER_CASE< INPUT_LEXEME  :  in  out  string) 

LENGTH  :  in  out  integer  >  is 
CONVERSION— FACTOR  :  constant  integer  :=  32) 

—  difference  between  upper  case  and  lower  case  letters  in  ASCII 
LETTER_VALUE  :  integer) 
begin 

for  I  in  1.. LENGTH  loop 

if  1  INPUT-LEXEME! I )  in  LOWER_CASE_LETTER )  then 

LETTER. VALUE  :=  character 'pos! INPUT_LEXEME(I) )  -  CONVERSION  FACTOR) 
INPUT_LEXEME( 1 1  :=  character 'val! LETTER_VALUE ) ) 
end  if) 
end  loop) 

end  CONVERT_UPPER_CASE ) 


end  BYPASS-SUPPORT  FUNCTIONS) 
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—  TITLE: 


AN  ADA  SOFTWARE  METRIC 


MOOULE  NAME: 
DATE  CREATED: 
LAST  MOOIFIED: 


PROCEDURE  DEMON 
13  JUN  86 
03  DEC  86 


-  AUTHORS:  LCDR  JEFFREY  L.  NIEOER 

LT  KARL  S.  FAIRBANKS,  JR. 


DESCRIPTION:  This  procedure  is  the  driver  -for  AdaMeasure. 
It  also  contains  the  exception  handler  -for  the  entire 
set  of  packages  which  comprise  AdaMeasure. 


— #»*****-***•»***"*■*  **********************************  *************** — 


with  MENU_0ISPLAY,  GLOBAL_PARSER >  GLOBAL,  TEXT_I0! 
use  MENU_DISPLAY,  GL08AL_PARSER,  GLOBAL,  TEXT_IO! 

procedure  DEMON  is 

package  NEW_INTEGER_IO  is  new  TEXT_I0. INTEGER_IO( integer ) \ 
use  NEW_INTEGER_I0  > 

begin 

DECLARATION  :=  TRUE* 

INITI AL_MENU ( 


exception 

when  PARSER.SRROR 

=  > 

put( 

TOTAL_LINES. INPUT  It  new_linei 

when 

3CANNER_=RR0R 

=  > 

put( "Parser  error" l( 
putl NEXT_CHARACTER  )\ 

when 

STATUS.ERROR 

=  > 

putl 

putl  character '  posl  NEXT_CHARACTER  1  1 1  new_l  me  t 
putl"  Error  occured,  program  halted")! 

"Status  error  occured  at  line  ")) 

when 

MODE_ERROR 

=  > 

putt 

putl TOTAL_LINES_INPUT ) ) 

"Mode  error  occured  at  line  "H 

when 

NAME_ERROR 

=  > 

put( 

putl  TOT AL_LINES_JNPUT ) > 

"Name  error  occured  at  line  ")) 

when 

USE_ERROR 

=  > 

put( 

putl TOTAL_LINES_INPUT ) ) 

"Use  error  occured  at  lino  ")> 

when 

DEVICE_ERROR 

=  > 

putl 

putl TOTAL_LINES_INPUT ) » 

"Device  error  occured  at  line  ")» 

when 

END^ERROR 

=  > 

put  I 

putl  TOT AL_LINES_INPUT  ) ) 

"End  error  occured  at  line  ")» 

when 

DATA_ERROR 

=  > 

put( 

putl TOTAL_LINES_INPUT ) \ 

"Data  error  occured  at  line  ”)> 

when 

LAY0UT_ERR0R 

=  > 

putl 

putl TOTAL_LINES_INPUT  ) » 

"Layout  error  occured  at  line  ")» 

when 

CONSTRAINT_ERROR 

=  > 

putl 

putl TOTAL_LINES_INPUT  ) » 

"Constraint  error  occured  at  line  "H 

when 

NUMERIC_ERROR 

=  > 

putl 

putl TOT  AL_LINES_INPUT ) \ 

"Numeric  error  occured  at  line  ")» 

when 

ST0RAGE_ERR0R 

=  > 

putl 

putl TOT AL_LINES_ INPUT ) > 

"Storage  error  occured  at  line  ")j 

when 

PR0GRAM_ERR0R 

=  > 

putl 

putl TOrAL_LINES_INPUT ) » 

"Program  error  occured  at  line  ")> 

when 

QUIT_T0_0S 

=  > 

putl TOTAL_LINES_INPUT ) > 

CLEARSCREEN) 

when 

others 

=  > 

putl 

"Error  occured")! 

end  DEMON ( 


—  TITLE: 


AN  ADA  SOFTWARE  METRIC 


—  MOOULE  NAME:  OISPLAY_SUPPORT 

—  OATE  CREATED:  II  OCT  86 

—  LAST  MOOIFIED :  04  DEC  86 


AUTHORS:  LCDR  JEFFREY  L.  NIEDER 

LT  KARL  S.  FAIRBANKS,  JR. 


—  DESCRIPTION:  This  package  contains  tha  procedures  and 

—  function  for  initializing  tha  metric  parameters,  and 
supporting  tha  user  intarfaca. 


--**************************************************  *************-- 

with  HALSTEAD_METRIC.  GLCBAL.PARSER .  GLOBAL,  TEXT_I0i 
use  HALSTEAD_METRIC,  GLCBAL.PARSER,  GLOBAL,  TEXT. 10; 

package  DISPLAY.SUPPORT  is 

procedure  GET_FILENAME( TYPE_PRESENT  :  in  out  boolean  It 
procedure  GET_ANSHER( ERROR ,  FINISHED  :  in  out  boolean  M 
function  AOJUST_EDIT_BUFFER( INPUT.STRING  :  string-, 

FILL_IENGTH  :  integer )  return  string 

procedure  RESET.PARAMETEPS • 
end  OISPLAY.SUPPORT  i 


pacKage  oody  3ISPLAY_$UPPORT  is 

--  this  is  a  user  interface  support  procedure  that  prompts  the  user  for 
—  tha  input  file  name,  whenever  the  user  must  select  a  specific  file, 
procedure  GET_FILENAME I TYPE_PRES£NT  :  in  out  boolean)  is 
begin 

TYPE_PRESENT  :=  FALSE  t 
for  I  in  1 . . LINESIZE  loop 

INPUT_FILE_NAMEl I )  :=  '  '  t 
TEST_FILE_NAME( I  )  :=  •  ’) 

DATA_FILE_NAME( I  )  :=  '  •> 

end  loop  t 


U 

U 

n 

n 


get_line(INPUT_FILE_NAME,  LENGTH_0F_LINE  ) )  new_line(2H 
for  I  in  1. . LENGTH_0F_LINE  loop 

if  ( INPUT_FILE_NAME< I  I  =  then 

TYPE_PRESENT  :=  TRUE t 
end  if  t 
and  lo opt 

if  ( TYPE_PRESENT  I  then 

for  I  in  1. . LENGTH_0F_LINE-4  loop 

DATA_FILE_NAME( I  )  :=  INPUT_FILE_NAME 1 1  )  t 
end  loop  t 

TEST_FILE_NAME  :=  INPUT_FILE_NAME 1 


put!  "♦♦  +  ♦♦♦♦♦  ♦♦♦*  +  ♦♦♦♦  +  ♦♦♦♦♦♦+♦♦♦+♦♦  +  ♦•*♦  ++♦♦♦♦♦♦+♦♦++  +  ♦" 
putl )  t  new_ lines 
put l  "  + 

putl”  +")t  new_  1  i ne t 

put("+  Input  the  name  of  the  file  you  wish  to” 

put!"  analyze  ♦  "))  new_linet 

putl  "♦  " 

putl"  ♦")»  rsew_linet 

putl  "♦•♦♦♦+■♦♦♦♦♦  +  ♦♦•»+  +  ♦♦♦♦♦+♦++♦♦♦  +  +  ♦♦♦  +  ♦++  +  ♦  +  ♦+♦++♦  +  ♦  +  +  " 

putl "  +  ♦++  +  ♦  +  ♦  +  ♦  +  +  +++♦++  +  +++♦♦  +  ♦♦+♦"  )t  new_line  t 

new_linot 

putl  "Filename  =  "It 


OATA_FILE_SIZE  :=  LENGTH_OF_LINE  -  4j 

•  Isa 

DATA_FILE_NAME  :  =  INPUT_FILE_NAME l 
for  I  in  1 . . LENGTH_OF_LINE  loop 

TEST_FILE_NAMEl I )  :=  INPUT_FILE_NAME( I  )> 
and  loop  * 

DATA_FIL£_SIZE  :=  LENGTH_OF_LINE ) 
and  if  v 

and  GET_FIL£NAME> 


—  this  usar  interface  support  procedure  ensures  that  the  user  answers 

—  the  question  correctly,  ana  determines  if  the  user  is  finished, 
procedure  5ET_ANSWER(  ERROR ,  .-'INI3HE0  :  in  out  boolean  l  is 

begin 

FINISHEO  :=  falsa i 
get!  ANSWER  I  i 

if  ( ANSWER  =  'N'  1  or  (ANSWER  =  'n'l  then 
FINISHEO  :  =  TRUE ) 

ERROR  :=  FALSE ) 

elsif  (ANSWER  =  'Y'l  or  (ANSWER 
ERROR  :=  FALSE) 

else 

ERROR  :=  TRUE; 
end  i f  i 

end  GET_ANSWERv 


-  user  correctly  said  no 
=  'y'l  then 

-  user  correctly  said  yes 

-  usar  answered  the  question  incorrectly 


—  this  formatting  function  places  the  input  string  in  the  edit  buffer 
--  and  fills  the  remaining  buffer  spaces  with  periods, 
function  AOJUST_EDIT_BUFFERl INPUT_STRING  :  string! 

FILL_L£NGTH  :  integer)  return  string  is 

begin 

for  I  in  1. .FILL.LENGTH  loop 

EDIT_BUFFER(  I )  :=  INPUT_S"rRING(  lit 
end  loop) 

for  I  in  ( FILL_LENGTH+1 ) . ,EOIT_LINE_SIZE  loop 
EDIT_BUFFER(I)  :=  •.') 
end  loop) 

return  < EDIT_BUFFER  ) ) 
end  AOJUST_EOIT_BUFFER ) 


this  procedure  resets  all  of  the  metric  parameters, 
procedure  RESET_PARAMETERS  is 
begin 

for  I  in  TOKEN_ANO. .TOKEN_ASSIGNMENT  loop 
OPERATOR_ARRAY< I  )  :=  0) 
end  loop) 

for  I  in  IF_CONSTRUCT. . CASE_CONSTRUCT  loop 
C0NSTRUCT_C0UNT( I )  :=  0) 
end  loop) 

for  I  in  FIRST_LEVEL_NEST. .MAXIMUM.NESTING  loop 
NESTE D_C0UNT ( I )  :=  0) 


end  loop) 

TOKEN_ARRAY_INDEX 

;  = 

0) 

PLACE_HOLDER_INDEX 

:  = 

0) 

TOTAL_LINES_INPUT 

:  = 

0) 

COMMENT.CCXJNT 

:  = 

0) 

CURRENT _NESTING_LEVE  L 

:  = 

0) 
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MAXIMUH_NESTING_LEVEL  :*  0» 

NESTING_IINE_NUMBER  :=  Ot 

FIRST_TIME_LOAO  : =  TRUE  J 

FULL  :=  FALSE i 

NESTE0_LEVEL_INCREASE  : =  TRUE » 

and  RESET_PARAMETERS> 


and  DISPLAY_SUPPORT \ 
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—  TITLE:  AN  ADA  SOFTWARE  METRIC 

—  MODULE  NAME:  GENERAL_OATA 

—  DATE  CREATED:  14  OCT  86 

—  LAST  MODIFIED:  05  DEC  86 

—  AUTHORS:  LCOR  JEFFREY  L.  NIEDER 

LT  KARL  S.  FAIRBANKS,  JR. 

—  DESCRIPTION:  This  package  contains  the  procedure  to  display  -- 

the  comment  count  and  nesting  level  metric  data. 

— *****##*#*#*»  a********************  *#*#  ***-»#**#**#*  »****■»*******-- 

with  DISPlAY_SUPPORT,  HALSTEAD_METRIC ,  BYPASS_SUPPORT_FUNCTICNS,  GL0BAL_PARSER , 
GLOBAL,  TEXT_I0* 

use  OISPLAY_SUPPORT,  HALSTEAO.METRIC ,  BYPASS_SUPPORT_FUNCTIONS ,  GLOBAL_PARSER  > 
GLOBAL,  TEXT_I0* 

package  C.NERAL_DATA  is 

package  NEW_INTEGER_I0  is  new  TEXT_IO.INTEGER_IO( integer  )  * 
use  NEW_INTEGER_IO* 

package  REAL.IO  is  new  TEXT_I0. FL0AT_I0< float  )  * 
use  REAL_I0v 

procedure  VIEWJ3ENERAL * 
end  GENERAL_0ATA  * 


package  body  GENERAL_0ATA  is 

—  this  procedure  computes  the  percentage  of  comments  to  total  lines  of  the 

input  file,  and  makes  recommendations  based  on  that  percentage.  It  also 

—  displays  what  nesting  constructs  were  utilized,  and  the  count  of  each 

—  nesting  level  attained  up  to  the  maximum  nesting  level  reached, 
procedure  VIEW_GENERAL  is 

RESULT  :  float* 

HOLD_CHARACTER  :  character* 

COUNT,  NEST  :  integer* 
begin 

GET_FILENAME<  TYPE_PRESENT 1  * 

CLEARSCREEN* 

open! DATA_FILE2 ,  in_file,  DATA_FILE_NAME  S  ".misc"  )* 

CONVE  RT_UPPER_C ASE ( DAT A_FI LE_NAME ,  DATA_FILE_SIZE  )  * 
put!"  ")* 

put! "Comment  count  data  for  file  ##  ")* 

put! ADJUST_LEXEME ( DATA_FILE_NAME ,  DATA_FILE_SIZE  )  )* 

put ( "  *»" )* 

new_line* 

put  (  " - "  )  * 

new_line( 2  )  * 

put! A0JUST_E0IT_BUFFER( "Total  number  of  linos  parsed",  28))* 
get) DATA_FILE2 ,  TOTAL_LINES_INPUT ,  5)* 
put) TQTAL_LINES_INPUT ,  5)* 
new_line* 

putt ADJUST_EDIT_BUFFER( "Total  number  of  comment  lines  parsed",  56))* 
gett  DATA_FILE2 ,  COMMENT.COUNT ,  5)* 
putt C0MMENT_C0UNT ,  5)* 
new_line  * 

get_line( DATA_FILE2,  DUMMY_FILE_NAME ,  LENGTH_0F_LINE ) * 

RESULT  :=  (  float!  C0MMENT_C0UNT  )  /  f  loatl  TOTAL_LINES_INPUT  )  )  *  100.0* 
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put! ADJUST_EDIT_BUFFER( "Percentage  of  comments  in  the  file's  34))) 
put(  RESULT,  5,  1,  0)) 
new_line(  2 ) ) 

new_line(  2 ) ) 

if  (RESULT  >=  0.0)  and  (RESULT  <  20.0)  than 

pot l "There  is  a  low  percentage  of  comments  to  the  total" )) 
new_line) 

pot< "number  of  lines  in  the  file.  Unless  utilization  of")) 
new_line ) 

put! "Ada's  extensive  variable  identification  has  been")) 
new_line) 

put! "applied,  there  may  be  too  few  comments  for  adequate")) 
new_linei 

out( "reader  comorehension. "  ) ) 
new_lina ) 

els  if  RESULT  >=  20.0)  and  ( RESULT  <  S0.0)  then 

put( "There  is  a  reasonaole  number  of  comments  to  the")) 
new_line ) 

put( "total  number  of  lines  m  the  file.  This  could  help")) 
new_line ) 

putt "a  reader  get  a  good  understanding  of  the  program.”)) 
new_line) 

els  if  (RESULT  >=  50.0)  and  (RESULT  <  85.0)  then 

put! "There  is  a  fairly  high  percentage  of  comments  to  the")) 
new_linei 

putt "total  number  of  lines  in  the  file.  This  could  help")) 
new_line ) 

put("the  reader  get  a  good  understanding  of  the  program,")) 
new  _  line ) 

put! "but  could  run  the  risk  of  obscuring  the  coda  in  the"!) 
new_i ine ) 

putt  "comments  .") )  new_lina) 
else 

put( "Thera  is  an  extremely  high  percentage  of  comments  to")) 
new_line) 

putt "the  total  number  of  lines  in  the  file.  With  this  high")) 
new_line ) 

put! "number  of  comments,  there  is  possibility  of  obscuring")) 
new_line) 

putt "the  code  in  the  comments.")) 
new_line) 
end  if) 
new_line ) 

put! "It  must  be  clearly  understood,  that  this  assessment  of  comment  lines")) 
new_line) 

putt "to  lines  of  code  is  not  a  hard  and  fast  rule,  but  a  suggestion  that")) 
new_line) 

putt "may  enhance  the  understanding  of  the  code.  ")) 
new_line<  2 ) ) 

new_line<  2 ) ) 

putt"  - Enter  any  letter  to  continue - "  ) ) 

new_line) 

gett  HOLD_CHARACTER ) ) 

CLEARSCREEN) 
putt"  ")) 

putt "Nesting  level  data  for  file  **  ”)) 

putt  ADJUST_LEXEMEt  DATA_FILE_NAME ,  DATA_FILE_SIZE  )  ) ) 

putt"  **")) 

new_line) 

new_line(  2 ) ) 

putt "DECISION  TYPE  UTILIZED" ) )  new.linel 

putt  " - "))  new_line) 

for  I  in  IF_CONSTRUCT. ,CASE_CONSTRUCT  loop 
gett  DAT A_FILE2,  COUNT,  5)) 
if  (COUNT  /=  0)  then 
case  I  is 


whan  IF.CONSTRUCT  => 

putl AOJUST.EDIT.BUFFERl "IF  construct",  12)  )> 
put) COUNT,  5  )  t  new.line t 
whan  LOOP .CONSTRUCT  => 

putl ADJUST_EDIT_BUFFER( "LOOP  construct",  14  ))  ) 
put! COUNT,  5)1  new.line! 
whan  WHILE.CONSTRUCT  => 

putl AOJUST.EDIT.BUFFERl "WHILE  construct",  15))) 
putl  COUNT,  5)1  new.line) 
when  FOR.CONSTRUCT  => 

putl ADJUST.EOIT.BUFFERI "FOR  construct",  12))) 
putl  COUNT,  5))  new.line) 
whan  CASE .CONSTRUCT  => 

putl AOJUST.EDIT.BUFFERl "CASE  construct",  14)1) 
putl COUNT,  51)  now _ Line) 
whan  others  =>  null) 
end  case) 
end  if ) 
end  loop) 
new.linei 

get.linal 0ATA.FILE2  >  DUMMV.FILE.NAME  >  LENGTH.OF.LINE  ) ) 

getl 0ATA.FILE2 >  MAXIMUM.NESTING.LEVEL,  5)) 

get.linal 0ATA.FILE2,  OUMMY.FILE .NAME  ,  LENGTH.OF.LINE)) 

getl 0ATA.FILE2  .  NESTING. LINE .NUMBER  ,51) 

get.linet 0ATA.FILE2,  DUMMV.FILE.NAME ,  LENGTH.OF.LINE)) 

putl ADJUST.EDIT.3UFFER1 "Maximum  nesting  level",  21)1) 

putl MAXIMUM.NESTING.LEVEL,  5)) 

new.linei 

putl  ADJUST. E0IT.3UFFERI  "Initial  occurence  line  nuinDsr"  ,  2911) 
putl NESTING.LINE.NUMBER  .  Sit 
new.linei 2  i ) 

for  I  in  FIRST.LEVEL.NEST. -MAXIMUM.NESTING.LEVEL  loop 
getl  DATA.  FILE  2,  NEST,  5)) 

putl  "Total  nesting  "1)  putl  I,  2)1  putl"  deep  occured")) 
putl  NEST ,  3)1  putl"  times."))  new.line) 
end  loop) 
new.linei 2 ) ) 

putl"  -  Enter  any  latter  to  continue  - ")) 

new.line) 

getl HOLD.CHARACTER 1 ) 

get.linal DATA.FILE2,  DUMMY.FILE.NAME ,  LENGTH.OF.LINE)) 

close! DATA.FILE2)) 
end  VIEW.GENERAL) 

end  GENERAL.DATA ) 
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TITLE: 


AN  ADA  SOFTWARE  METRIC 


--  MODULE  NAME: 

--  DATE  CREATED: 
—  LAST  MODIFIED: 


PACKAGE  GLOBAL 
13  JUN  86 
16  OCT  86 


—  AUTHORS :  LCDR  JEFFREY  L.  NIEDER 

LT  KARL  S.  FAIRBANKS,  JR. 


DESCRIPTION:  This  packaga  contains  all  the  global  typo, 
subtyps,  and  variable  declarations. 


— <****■***»■*******•****»*************#********************#»»****** — 


with  TEXT.IOl 

packaga  NEH.INTEGER.IO  is  new  TEXT _IQ . INTEGER. 10!  integer  ) ! 


with  TEXT.IO,  NEW.INTEGER.IO ! 
use  TEXT_IO ,  NEH.INTEGER.IO ! 

package  GLOBAL  is 

LINESIZE  :  constant  integer  :=  100 \ 

--  Ada  toKen  classes 

typo  TOKEN  is  : IDENTIFIER ,  SEPARATOR,  NUMERIC.LIT ,  DELIMITER ,  COMMENT, 
CHARACTER. -IT  .  STRING.LIT,  ILLEGAL)  l 

--  record  to  hold  the  token  built  up  by  the  scanner,  the  value  is  the 
token's  position  (PCS)  in  the  token  list,  the  lexeme  is  the  actual 
string  -for  that  particular  token 
type  TOKEN.RECORD.TYPE  is 
record 

TOKEN.TYPE  :  TOKEN j 
TOKEN. VALUE  :  integer ! 

LEXEME  :  string! 1. . LINESIZE  )  J 

LEXEME.SIZE  :  natural! 
end  record! 

—  this  array  is  the  input  buffer,  it  holds  each  line  of  code  when 

read  from  the  input  file 
subtype  INPUT.CODE.LINE  is  string! 1. . LINESIZE  )  > 

subtype  UPPER.CASE. LETTER  is  character  range  'A'.-’Z'! 
subtype  LOWER.CASE.LETTER  is  character  range  'a'..'z'v 
subtype  UPPER.CASE.HEX  is  UPPER.CASE .LETTER  range  'A’.-'F'! 
subtype  LOWER.CASE.HEX  is  LOWER.CASE.LETTER  range  'a'.-’f'! 

subtype  DIGITS.TYPE  is  character  range  '0,..'9'» 

—  the  following  subtype  declarations  make  use  of  the  POS  attribute 

which  returns  the  integer  value  of  the  particular  ASCII 
character  argument 

--  set  of  formators  characterized  by  their  ASCII  value  — 

--  formators  are  horizontal  tab,  line  feed,  vertical  tab,  form  feed, 
and  carraige  return 
subtype  FORMATORS  is  integer 

range  character ' pos! ASCII . HT ) . .character 'pos!  ASCII . CR ) ! 

—  first  set  of  delimiters  characterized  by  their  ASCII  value  -- 
--  delimiters  are  ampersand,  accent  mark,  left  paren,  right  paren, 

asterisk,  plus  sign,  comma,  dash,  period,  slash 
subtype  0ELIMITER1  is  integer 


range  character 'post  .character 'post  V  )* 


—  second  set  of  delimiters  characterized  by  their  ASCII  value  — 

—  delimiters  are  colon*  semi-colon*  less  than*  equal*  greater  than 
subtype  DELIMITER2  is  integer 

range  character 'pos( ' : ' ) . .character 'post  1 >'  ) * 

—  compound  delimiters  whose  first  symbol  is  in  second  set  of  delimiters  -- 

—  the  entire  sat  of  compound  delimiters  are  <=*  >=»  /=,  »«,  «,  »,  =>, 

:=,  <>,  .. 

subtype  COMPOUND.DELIMITER  is  0ELIMITER2 

range  character ' post  1  < '  ) . .character 1  post  ' >'  ) * 


TEST.FILE .  RESULT.FILE 

INPUT. FILS .NAME 

NEXT.CHARACTER 

LCOKAHEAO.CNE .CHARACTER 

CURRENT.3UF PER .INDEX 

NEXT.BUFFER.INDEX 

TOKEN.RECORD 

INPUT.LINE 

TOTAL.LINES.INPUT 

REFILL_BUFFER_INDEX 

LEXEME.LENGTH,  INPUT.LINE.SIZE 

TOKEN.CLASS 


file. type  * 

string! 1. . LINESIZE  )  v 
character * 
character * 
integer* 
integer  :=  Oi 
TOKEN.RECORD.TYPE ( 
INPUT.C0DE.LINE* 
integer  :=  0* 
natural  :=  0* 
natural  * 

TOKEN* 


procedure  ERROR.MESSAGE! TOKEN.CLASS  :  in  out  TOKEN)* 
SCANNER.ERROR  :  exception* 

end  GLOBAL ; 


package  body  GLOBAL  is 


—  procedure  called  when  an  error  is  detected  by  any  of  the  token  class 

—  routines,  an  integer  value  is  passed  identifying  which  routine  called 
this  procedure,  and  the  SCANNER.ERROR  exception  is  raised. 

procedure  ERROR.MESSAGE ( TOKEN.CLASS  :  in  out  TOKEN)  is 
SCANNER.ERROR.VALUE  :  integer* 
begin 

SCANNER.ERROR.VALUE  :=  TOKEN 'pos! TOKEN.CLASS ) * 
case  SCANNER.ERROR.VALUE  is 

"Illegal  identifier  at  line  number  ")* 
"Illegal  separator  at  line  number  ")* 
"Illegal  numeric  literal  at  line  number  " 
"Illegal  delimiter  at  line  number  ")* 
"Illegal  comment  at  line  number  ")* 
"Illegal  character  literal  at  line  number 
"Illegal  string  literal  at  line  number  ") 
"Illegal  first  character  at  line  number  " 


when 

when 

when 

when 

when 

when 

when 

when 


=  > 
=  > 
=> 
=> 
=> 
=  > 
=> 
=  > 


put! RESULT.FILE , 
putl RESULT.FILE  * 
put! RESULT.FILE, 
put! RESULT.FILE, 
put! RESULT.FILE, 
put! RESULT.FILE, 
put!  RESULT.FILE, 
put! RESULT.FILE, 
null  * 


when  others  => 
end  case* 

put! RESULT.FILE ,  TOTAL.LINES.INPUT ) * 
new.line! RESULT.FILE ) * 


raise  SCANNER.ERROR* 
end  ERROR.MESSAGE* 


end  GLOBAL* 


"V»v* 


-  if"  rf  "  V  w  ki  ’  "  ~  M  "  » 


-a*####*****#*##******#*#*###*#*#***#*#**##*#**###*#*##*****##*# — 


—  MODULE  NAME: 

--  DATE  CREATED: 
--  LAST  MODIFIEO : 

—  AUTHORS: 


AN  ADA  SOFTHARE  METRIC 

PACKAGE  GLOBAL.PARSER 
17  JUL  86 
03  DEC  86 

LCDR  JEFFREY  L.  NJEOER 
LT  KARL  S.  FAIRBANKS,  JR. 


DESCRIPTION:  This  package  contains  the  global  variables 
--  used  by  the  parser  and  metric.  It  also  contains  all 

--  ot  the  declarations  ot  the  -eserved  words  and  reserved 

—  symbols  recognized  by  the  language. 

— ■******■******«*****"****•***-*****•**■»**-****■**#**-****»*******•**#****- 


with  GLOBAL,  TEXT.IO', 
use  GLOBAL,  TEXT.Io', 

package  5LCBAL_PARSER  is 

TOKEN.ARRAY.SIZE 

edit.line.gize 

^cken.identifier 

TOKEN.NUMERIC. LITERAL 

TOKEN.CHARACTER. LITERAL 

TOKEN.GTRING.LITERAL 

TOKEN. END 

TOKEN. 3EGIN 

T0KEN_IF 

token.then 

TOKEN.ELSIF 

TOKEN.ELSE 

TOKEN.HHILE 

TOKEN.LOOP 

TOKEN.CASE 

TOKEN.HHEN 

TOKEN.OECLARE 

TOKEN.FOR 

TOKEN.OTHERS 

TOKEN.RETURN 

TCKEN.EXIT 

TOKEN.PROCEDURE 

TOKEN.FUNCTION 

TOKEN.WITH 

TOKEN.USE 

TOKEN.PACKAGE 

TOKEN.BOOY 

TOKEN.RANGE 

TOKEN.IN 

TOKEN.OUT 

TOKEN.SUBTYPE 

TOKEN.TYPE 

TOKEN. IS 

TOKEN.NULL 

TOKEN. ACCESS 

TOKEN.ARRAY 

TOKEN.DIGITS 

TOKEN.OELTA 

TOKEN.RECORO.STRUCTURE 

TOKEN.CONSTANT 

TOKEN.NEH 

TOKEN.EXCEPTION 

TOKEN.RENAMES 

TOKEN.PRIVATE 

TOKEN  LIMITED 


constant  integer 
constant  integer 


constant 
constant 
constant 
constant 
constant 
cons  tant 
constant 
constant 
constant 
constant 
constant 
constant 
constant 
constant 
constant 
constant 
constant 
constant 
constant 
constant 
cons tant 
constant 
constant 
constant 
constant 
constant 
constant 
constant 
constant 
constant 
constant 
constant 
constant 
constant 
constant 
constant 
constant 
constant 
constant 
cons  tant 
constant 
constant 
constant 


integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 
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u 

iVt  |,1  rn .  «  A-t T«  •!  r'J  1.' !-*t 

TOKEN  TASK 

:  constant  integer 

i 

* 

« 

i 

=  44} 

TOKEN  ENTRY 

:  constant  integer 

=  45} 

TOKEN_ACCEPT 

:  constant  integer 

£46} 

TOKEN_DELAY 

:  constant  integer 

=  47}  f 

TOKEN  SELECT 

:  constant  integer 

=  48}  J 

TOKEN_TERMINATE 

:  constant  integer 

£  49}  B 

TOKEN_ABORT 

:  constant  integer 

£50}  I 

TOKEN_SEPARATE 

:  constant  integer 

£  51  }  < 

TOKEN_RAISE 

:  constant  integer 

=  52}  ! 

TOKEN_GENERIC 

:  constant  integer 

=  53} 

TOKEN_AT 

:  constant  integer 

=  54) 

TOKEN  REVERSE 

:  constant  integer 

=  55) 

TOKEN  00 

:  constant  integer 

=  56)  U 

TOKEN  GOTO 

:  constant  integer 

=  57i  1 

TOKEN  OF 

:  constant  integer 

=  53}  * 

TOKEN  ALL 

:  constant  integer 

=  59) 

TOKEN_PRAGMA 

:  constant  integer 

=  60) 

TOKEN  AND 

:  constant  integer 

=  61)  * 

TOKEN  OR 

:  constant  integer 

=  62)  X 

TOKEN  NOT 

:  constant  integer 

=  63)  « 

TOKEN  XOR 

:  constant  integer 

=  64)  | 

TOKEN  MOD 

:  constant  integer 

=  65)  *, 

TOKEN  REM 

:  constant  integer 

=  66 ) 

TOKEN  ABSOLUTE 

:  constant  integer 

-  b  7  \  p 

TOKEN  ASTERISK 

:  constant  integer 

-  b8  V  p 

TOKEN  SLASH 

:  constant  integer 

=  69)  K 

TOKEN  EXPONENT 

:  constant  integer 

=  70)  r 

TOKEN  PLUS 

:  constant  integer 

=  71)  j 

TOKEN  MINUS 

:  constant  integer 

TOKEN  AMPERSAND 

:  constant  integer 

=  '3)  J 

TOKEN  EQUALS 

:  constant  integer 

=  74-,  ; 

TOKEN  NOT  EQUALS 

:  constant  integer 

=  75  j 

TOKEN  LESS_THAN 

:  constant  integer 

=  76 )  ^ 

TOKEN  LESS  THAN  EQUALS 

:  constant  integer 

=  77) 

TOKEN  GREATER  THAN 

:  constant  integer 

=  78)  A 

TOKEN  GREATER_THAN_EQUALS 

:  constant  integer 

=  79)  fi 

TOKEN_ ASSIGNMENT 

:  constant  integer 

=  aoi  | 

TOKEN  SEMICOLON 

:  constant  integer 

=  8D  ;■ 

TOKEN  PERIOD 

:  constant  integer 

=  82) 

TOKEN  LEFT  PAREN 

:  constant  integer 

=  83 )  •] 

TOKEN  RIGHT  PAREN 

:  constant  integer 

=  84)  ; 

TOKEN  COLON 

:  constant  integer 

=  85)  ; 

TOKEN  COMMA 

:  constant  integer 

=  86)  a 

TOKEN  APOSTROPHE 

:  constant  integer 

=  87)  {I 

i  TOKEN  RANGE  DOTS 

:  constant  integer 

=  88) 

TOKEN  ARROW 

:  constant  integer 

=  89) 

TOKEN  BAR 

:  constant  integer 

=  90 ) 

TOKEN  BRACKETS 

:  constant  integer 

=  9i)  y 

TOKEN  LEFT  BRACKET 

:  constant  integer 

=  92 ) 

TOKEN_RIGHT_BRACKET 

:  constant  integer 

=  93)  a 

M 

type  TOKEN  RECORD_BUFFER_ ARRAY  is 

1 

* 

array  ( 0. .TOKEN_ARRAY_SIZE  )  of 

T0KEN_REC0RD_TYPE > 

TOKEN_RECORD  BUFFER 

:  TOKEN_RECORD_BUFFER_ARRAY  )  !' 

CURRENT  TOKEN  RECORD 

:  T0KEN_REC0RD_TYPE 

* 

LOOK_AHEAO_TOKEN 

:  TOKEN  RECORD_TYPE )  \ 

* 

TOKEN_ARRAY_INDEX 

:  integer  :=  0) 

m 

I 

LENGTH_OF_LINE 

:  integer  :=  0) 

r 

PLACE_HOLDER_INDEX 

:  integer  :  =  0) 

C0MMENT_C0UNT 

:  integer  :=  0) 

DATA  FILE_SIZE 

:  integer  :=  0> 

v 

STATUS_COUNTER 

:  integer  :=  0) 

</ 

j> 

FULL 

:  boolean  :  =  FALSE ( 

FINISHED 

:  boolean  :=  FALSE ) 

1 
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r 

a* 

1 

1 

k 

RESERVE_WORO_TEST 

FIRST_TIME_LOAD 

PROCEOURE_TEST 

ERROR 

TYPE.PRESENT 

DECLARATION 


boolaan  :=  FALSE  s 
boolean  :=  TRUE  > 
boolaan  :=  FALSE > 
boolaan  :=  FALSE t 
boolaan  :  =  FALSE i 
boolaan t 


TEST_FILE_NAME 

DATA_FILE_NAHE 

DUMMY_FILE_NAM£ 

EOIT_SUFFER 

ANSWER 

DATA_FILE1 i  DATA_FILE2 
DATA_FILE3,  DATA_FILE4 
PARScR_ERROR 
<3UIT_T0_0S 


:  string! 1. .LINESIZE  H 
:  string!  1. . LINESXZE  )  l 
:  string! 1 . . LINE SIZE  H 
:  string! 1. . EDIT_LINE_SIZE  )> 

:  character i 
:  fila_ types 
:  tile_types 
:  except  ion s 
:  exceptions 


procedure  CLEARSCREENs 

procedure  SYNTAX_ERROR( ERROR_MESSAGE  :  string  Is 


end  GLOBAL_PARSER l 


package  body  GLOBAL_PARSER  is 

procedure  CLEARSCREEN  is 
begin 

put! ASCII. ESC  i  "2J"  Is 
end  CLEARSCREENs 


procedure  SYNTAX_ERROR( ERROR_MESSAGE  :  string)  is 
begin 

put! "Incomplete  " ) l 
put! ERROR_MESSAGE I S 
put!"  at  line  number" ) > 

put! RESULT_FILE ,  "Incomplete  ")> 
put! RESULT_FILE  >  ERROR_MESSAGE  )  S 
put! RESULT_FILE  >  "  at  line  number"  )  s 

raise  PARSE R_E RROR s 
end  SYNT AX_E  RROR  s 

end  GLOBAL_P ARSE  R l 
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—  TITLE: 


AN  ADA  SOFTWARE  METRIC 


—  MODULE  NAME:  HALSTE AO_DISPLAY 

—  DATE  CREATED:  U  OCT  86 

—  LAST  MOOIFIED :  03  DEC  86 


—  AUTHORS:  LCDR  JEFFREY  L.  NIEDER 

LT  KARL  S.  FAIRBANKS,  JR. 


—  DESCRIPTION:  This  packaga  contains  all  of  tha  procedures 

--  and  functions  necessary  to  implement  Halstead's  length 

—  metric. 

— ■*******»***********■****-**********•*»#*#**************#*****  *#***-- 


with  OISPLAY_3UP°ORT,  HAL3TEA0_METRIC .  3YPASS_3UPPORT_-UNCTIONS ,  GLOBAL_PARSER . 
GLOBAL,  TEXT_IO) 

use  3ISPLAY_SUPPORT,  HALSTEAQ_METRIC ,  BYPASS_SUPPORT_FUNCTIONS ,  GLOBAL.PARSER , 
■GLOBAL,  TEXT_IO) 

packaga  HALSTE AD_0ISPLAY  is 

package  NEW_INTEGER_IQ  is  new  TEXT^IO. INTEGER_IOI integer  )  ) 
use  NEH_TNTEGER_IO \ 

package  REAL.IO  is  new  TEXT_I0 . FLOAT_IQ( float H 
use  REAL.IO) 

procedure  HALSTEAD) 
procedure  VJEH_0PE.°AT0RS ) 
procedure  OPERAND .MENU ; 
procedure  VIEH_SC3PE_$TRUCTURES i 
procedure  VIEW_VARIABLES ) 
procedure  VIEH_BL0CKS) 
procedure  METRIC_CONCLUSIONS ) 
function  LOG2( NUMBER  :  float)  return  float) 
function  NATURAL_LOG( NUMBER  :  float)  return  float) 
end  HALSTEAD_OISPLAY> 


package  body  HALSTEAD_DISPLAY  is 


—  this  procedure  provides  a  menu  of  selections  for  viewing  Halstead's 

—  length  metric  data.  It  also  loads  the  symbol  table  array, 
procedure  HALSTEAD  is 

DONE  :  boolean  :=  FALSE) 

DUMMY_LINE_LENGTH  :  integer) 

LEXEME_NAME  : string) 1. . LINESIZE  )) 
begin 

GET.FILENAME ( TYPE_PRESENT ) > 
while  not  (DONE)  loop 
CLEARSCREEN) 
new_line ) 

put!  "***»***************************************#*******»**##"  ) ) 
put ( "***********************"  )  i  new_line) 

put (  "*  ")) 

putt"  *"))  new_line) 

putt"*  HALSTEAD  SELECTION  MENU  ")) 

put(  "  *“)>  new_line> 

putt  "*  ~  ")) 

putt"  *"))  new_line) 

putt"*  •' )) 

putt"  *"))  new_line) 

putt"*  HERE  ARE  THE  HALSTEAD  METRIC  OPTIONS  AVAILAB"  ) ) 

putt  "LE  TO  YOU  *")>  new_line) 

putt"*  " )) 
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> 


putt” 

*"))  new_lir*e) 

putt ”» 

Simply  enter  the  number  of  your 

choice"  ) ) 

putt  " 

*"))  new_line) 

putt  "* 

")) 

putt" 

*"))  new_line) 

putt"* 

1  -  HALSTEAO  OPERATORS 

"  )) 

putt  " 

*"))  new_line) 

putt"* 

")) 

putt  " 

*"  ) )  new_line) 

putt  "* 

2  -  HALSTEAD  OPERANDS 

"  )) 

putt  " 

*"))  new_line) 

putt"* 

">) 

putt  " 

»'*))  new_l  ine ) 

putt  ”* 

3  -  HALSTEAD  METRIC  CONCLUSIONS 

")) 

putt  ” 

*" I )  new.line ) 

putt  "* 

"  n 

putt  " 

*"  1 )  new_line ) 

putt  "* 

4  -  EXIT  TO  METRIC  SELECTION  MENU 

"  n 

putt  " 

*"  1 )  new_line ) 

putt  "* 

" )) 

putt  " 

*"))  new_line) 

putt  "* 

S  -  EXIT  TO  OPERATING  SYSTEM 

" )) 

putt  " 

*"  It  new_linet 

putt "* 

" ») 

putt  " 

*'* ))  new_line) 

putt  "»»»»*»  »******»*!»■»*»***»*»■»*■»*«»»»»»»■»»*»»*»  **»****■****««"  )  V 

putl  "**********#******#****#"  )  i  new_linet  2  ) ) 

putt  "Choice  = 

'  •  * 

getl  ANSWER!) 
get_linei OUMMY 

J XL2.NAME >  OUMMY_LINE_L£NGTH  i  \ 

flush  system  input 

--  buffer 

—  ioaa  the  symooi  table  array  — 
open(0ATA_FILE3.  in.file,  OATA_FILE_NAME  S  " . rand" ) ) 
get!  DATA_FILE3  »  LAST_ENTRY_INOEX  .  5H 
get(DATA_FILE3,  TOTAL_OPERANO_COUNT ,  5)1 
get_line( QATA_FILE3,  OUMMY_FILE_NAME  ,  LENGTH_OF_LINE  )  ) 
for  I  in  0. . LAST_ENTRY_IN0EX-1  loop 

get!  DATA_FILE3  >  SYMBOL_TABLE(I)  .SCOPE  ,  5)) 
get! DATA_FILE3  ,  SYMBOL_TABLE( I  )  .REFERENCE ,  5)) 
gett DATA_FIUE3»  SYMBOL_TABLE( I ) . OECLARATION_TYPE  >  5)> 
got_line(DATA_FILE3,  LEXEME_NAME ,  LENGTH_OF_LINE  )  > 

NEW_NODE  :=  new  OPERAND_TYPE ) 

NEW_N0DE. OPERAND  :=  LEXEME _NAME ) 

NEW_NODE . SIZE  :=  LENGTH_OF_LINE > 

NEW_NOOE.NEXT_OPERAND  :=  null) 

SYMBOL_TABLE (I) . LEXEME _A00RESS  : =  NEW_NODE ) 
end  loop) 

closet DATA_FILE3)> 

new_line( 2  ) ) 
case  ANSWER  is 

when  '1'  =>  VIEW_0PERAT0RS> 
when  '2'  =>  0PERAND_MENU) 
when  '3'  =>  METRIC.CONCLUSIONS > 
when  ’4'  =>  DONE  :=  TRUE) 
when  'S'  =>  raise  QUIT_T0_0S ) 
whan  others  =>  null) 
end  case) 
end  loop) 
end  HALSTEAD) 


—  this  procedure  displays  the  Halstead  operator  metric  data, 
procedure  VIEW_0PERAT0RS  is 

DONE  :  boolean) 

OCCURENCES,  OPERATORSJJSEO  :  integer  :=  0) 

HOLD_CHARACTE R  :  character) 

LEXEME_NAME  :  s tr ingt 1 . . LINESIZE ) ) 
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begin 

CLEARSCREEN) 

openl DATA.FILEl ,  in.file,  DATA_FILE_NAME  A  ".data")) 

putt  "  IHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHUHHHHHHI "  )  ( 
putt  "*»*»#***»*#******#*#***"  >  t  new.  1  i  no  I  2  )) 

CONVERT.UPPE R_C ASE ( DATA.FILE.NAME ,  OATA_FILE_SIZE  )  * 
putt"  Operator  data  for  fiia  **  “)) 

putt ADJUST.LEXEMEt OAT A.FILE.NAME ,  OATA.FILE.SIZE  )  )) 
putt"  **"))  new.linet  2  )  ) 


putt "OPERATOR 
putt  " - 


UTILIZED"))  new_I ine ) 
- "))  new. line) 


for  I  in  TOK£N_ANO. . TOKEN.ASSIGNMENT  loop 
get!  DATA. FILE1 ,  OCCURENCES)) 
if  (OCCURENCES  /=  0)  then 
case  I  is 

when  TOKEN_AND  => 

putt  ADJUST .EDIT.BUFFERt "Boolean  1  AND ' " ,  13  I  ) ) 
when  TOKEN.OR  => 

putt ADJUST_EDIT_BUFFER( "Boolean  ’OR'",  12 ))» 
when  TOKEN_NOT  => 

putt ADJUST_EDIT_BUFFER( "Boolean  ’NOT’",  13))) 
when  TOKEN_XOR  => 

putt ADJUST_EOIT_BUFFER( "Boolean  'XOR'",  13)1) 
when  TOKEN_MOD  => 

putt ADJUST.EDIT.BUFFERI "Modulus  'MOD'",  13))) 
when  TOKEN.REM  => 

putt ADJUST_EDIT_BUFFER( "Remainder  ’REM’",  15 )  > ) 
when  TOKEN. ABSOLUTE  => 

putt AOJUST.EDIT.BUFFERt "Absolute  Value  '  4BS ' " ,  20  )  1 ) 
when  TOKEN. ASTERISK  => 

putt  AOJUST_EDIT_BUFFERt  "Multiplication  18  I  H 

when  TOKEN.SLASH  => 

putt  AOJUST.EDIT.BUFFERt  "Oivision  V",  12))) 
when  TOKEN.EXPONENT  => 

putt ADJUST.EDIT.BUFFERI "Exponentiation  ’»*•",  19))) 
when  TOKEN.PLUS  => 

putt ADJUST_EDIT_BUFFER(  "Addition  •♦*",  12))) 
when  TOKEN.MINUS  => 

putt ADJUST_EDIT_BUFFER( "Subtraction  15  ) )  > 

when  TOKEN. AMPERSAND  => 

putt ADJUST_EDIT_BUFFER< "Catenation  14 ) ) ) 

when  TOKEN.EGUALS  => 

putt ADJUST_EOIT_BUFFER(  "Equality  •  =  12))) 

when  TOKEN.NOT.EGUALS  => 

putt ADJUST_EOIT_BUFFER( "Inequality  •/=’",  IS ) ) > 
when  TOKENLESS.  THAN  => 

putt AOJUST.EDIT.BUFFERt "Less  Than  •<•",  13))) 
when  TOKEN.LESS.THAN.EQUALS  => 

putt ADJUST_EDIT_BUFFERI "Less  Than  Equals  •<=•",  21))) 
when  TOKEN_GREATER_THAN  => 

putt ADJUST_EDIT_BUFFER( "Greater  Than  •>•”,  16))) 
when  TOKEN.GREATER.THAN.EQUALS  => 

putt AOJUST_EOIT_BUFFER( "Greater  Than  Equals  ■>=>”,  24))) 
whan  TOKEN. ASSIGNMENT  => 

putt ADJUST_EOIT_BUFFER< "Assignment  15))) 

when  others  =>  null ) 

end  case) 

putt  OCCURENCES, 5 ) ) 
new.line) 

end  if)  —  if  occurences  /=  0 

end  loop) 

get.linet  DATA.FILEl,  OUMMY_FILE_NAME ,  LENGTH_OF_LINE ) ) 

for  I  in  IF.CONSTRUCT. .  CASE.CONSTRUCT  loop 
gett  DATA.FILEl ,  OCCURENCES,  51) 
if  (OCCURENCES  /=  0)  then 
case  I  is 


m 


-■  a  s.  v. 


A  **  A  •'  . 


whan  IF.CONSTRUCT  => 

putt AOJUST_EDIT_BUFFER<  "IF  construct",  12  m 
whan  LOOP.CONSTRUCT  *> 

putt ADJUST_£DIT_BUFFER< "LOOP  construct",  14  m 
whan  WHIL£_CONSTRUCT  => 

putt AOJUST_EOIT_BUFFER( "WHILE  construct",  15))) 
whan  FOR_CONSTRUCT  => 

putt AOJUST_EOIT_BUFFER( "FOR  construct",  13))) 
whan  CASE.CONSTRUCT  => 

putt  AOJUST_EDIT_BUFFER(  "CASE  construct",  14))) 
whan  others  =  >  null) 
and  case) 

putt  OCCURENCES,  5>)  new.line) 
and  it i 
and  loop) 

new_line) 

putt  AOJUST_EDIT_BUFFER< "Number  of  individual  operators  used",  35))) 
get! DATA.FILEl,  OPERATORS_USED  ) ) 
putt  OPERATORS_USED ,  5)) 
new_line ) 

putt ADJUST_EDIT_BUFFER( "Total  number  of  occurences",  26))) 

get!  DATA_FILE1,  OCCURENCES)) 

putt  OCCURENCES,  5)) 

new.linel  2 ) ) 

closet  0ATA_FILE1  I) 

putt"  -  Enter  any  latter  to  continue  - ")) 

new_lina) 

gett  HOLO.CHARACTER  ) ) 
end  7IEW_0PERAT0RS) 


--  this  procedure  provides  a  menu  of  selections  for  viewing  the 
—  Halstead  operand  metric  data, 
procedure  OPE R AND_MENU  is 
DONE  :  boolean  :=  FALSE) 

OUMMY_LINE_LENGTH  :  integer) 
begin 

while  not  (DONE  )  loop 
CLEARSCREEN) 
new_l ine ) 


putt  " ******* *** jt************************" 

putt  ”***********************")  j  new  line) 

putt  "a 

•t 

putt  " 

*"))  new_line) 

putt"* 

HALSTEAD  OPERAND  SELECTION  MENU  ” 

putt  " 

*"))  r>ew_line) 

putt  "* 

II 

putt  " 

*")>  new_line) 

putt  "* 

II 

putt  " 

*"))  new_line) 

putt"* 

HERE  IS  THE  OPERAND  DATA  AVAILABLE" 

putt  " 

*"))  new_line) 

putt  '■* 

II 

putt  " 

*"))  new_line) 

putt  "* 

Simply  enter  the  number  of  your  choice" 

putt" 

*"))  new_line> 

putt "* 

M 

putt  " 

*"))  new_line) 

putt  "* 

1  -  PROCEDURE,  FUNCTION,  PACKAGE  INFORMATI" 

putt  "ON 

*")>  new_line) 

putt  "* 

II 

putt  " 

*"))  new_line) 

putt  "* 

2  -  VARIABLES  AND  CONSTANTS  INFORMATION 

putt  " 

*"))  new_lino) 

putt  "* 

II 

putt  " 

*")(  new_line) 
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put!  "* 

3  -  TASKS  AND  BLOCKS  INFORMATION 

"  ) 

put!" 

*"  )l  naw_line) 

put! “* 

") 

put!" 

*")!  new_linei 

put!  "» 

4  -  EXIT  TO  HALSTEAD  SELECTION  MENU 

"  ) 

put  ( " 

*"))  new_lirvei 

put!"* 

"  ) 

putt" 

*"  )  i  new_linei 

put!  "* 

5  -  EXIT  TO  OPERATING  SYSTEM 

"  ) 

put!" 

*")!  rtew_linei 

put!"* 

"  ) 

put!  " 

*"  ) !  r>ew_line! 

HHWOSVlWWI**  WKWHHMlHHtWHMimHi  **»***«***«»*»! 

»***'<  1 

put! "Choice  =  "  ) ; 
get!  ANSWER)! 

3et_line!0UMMY_FILE_NAME,  3UMMY_LINE_L£NGTH  )!  —  flush  system  input 

new_line( 2  )  i 
case  ANSWER  is 

when  ‘1’  =>  VIEW_SCOPE_STRUCTURESt 
when  *  2 '  =>  VIEW_VARIABUES ! 
when  *3'  =>  VIEW_BLOCKSi 
when  '4'  s>  DONE  :=  TRUE  1 
when  ’5'  =>  raise  QUIT_T0_0St 
when  others  =>  null* 
and  case! 
and  loop  i 
and  OPERANO_MENU i 


—  this  procedure  displays  the  Halstead  operand  metric  data  for 
packages  i  procedures,  and  functions, 
procedure  VIEH_SC0PE_37RUCTUR£S  is 
SCREEN_COUNTER  :  integer  :=  0) 

NAME  :  string! 1. . LINESIZE  )  ! 

SIZE ,  COUNT  :  integer! 

HOLO_CHARACTER  :  character! 
begin 

CLEARSCREEN! 

put!  "********************************************************"  )  ! 
put!  "******************#****"  )  i  new_line(  2  )  ! 

CONVERT_UPPER_CASE( OATA_FILE_NAME ,  OATA_FILE_SIZE  ) ! 
for  OECLAREJTYPE  in  PACKAGE_OECLARE . . FUNCTION_DECLARE  loop 
case  OECLARE_TYPE  is 

when  PACKAGE_DECIARE  => 

put!"  PACKAGES  for  file  -  " ) ! 
when  PROCEOURE_DECLARE  => 

put!"  PROCEDURES  for  file  -  •• )) 
when  FUNCTION_OECLARE  => 

put!"  FUNCTIONS  for  file  -  ")! 
when  others  =>  null! 

end  case! 

put! ADJUST_LEXEME ( DATA_FILE_NAME ,  DATA_FILE_SIZE  ) ) !  new_line(2)! 


put!  "NAME  REFERENCED"  )!  new_lir>o! 

put!" - ")!  r>ew_line! 


for  I  in  0. .( LAST_ENTRY_INDEX-1 )  loop 

NAME  :=  SYMBOL_TABLE( I ) . LEXEME_ ADDRESS .OPERAND l 
SIZE  :=  SYMBOL_TABLE< I  ) . LEXEME_A00RESS . SIZE ! 

COUNT  :=  SYMBOL.T ABLE (I (.REFERENCE! 

if  I SYMBOL_TABLEI I  ) . DECLARATION_TYPE  =  DECLARE_TYPE (  then 
put! AOJUST_EDIT_BUFFERt  NAME ,  SIZE  ) ) ! 
put!  COUNT,  5)1  new_linet 
SCREEN_COUNTER  :=  SCREEN_COUNTER  +  li 
if  (SCREEN_COUNTER  =  10)  then 
rtew_  line!  3  )  | 


putt"  -  Enter  any  letter  to  continue  - ")s 

new.line s 

get! HOLO.CHARACTER ) s 
CLEARSCREEN) 

SCREEN.COUNTER  :=  Os 
case  OECLARE.TYPE  is 

when  PACKAGE_DECLARE  => 

put!"  PACKAGES  for  til a  -  "  )  s 
when  PROCEDURE .DECLARE  => 

put(“  PROCEDURES  for  file  -  " ) » 
when  FUNCTION.DECLARE  => 

putC  FUNCTIONS  for  file  -  "  ) s 
when  others  =>  null) 

and  caset 

put(AOJUST_lEXEME(OATA_FILE_NAME.  DATA.FILE.SIZE  )  )  t  new.line!  2  )s 
put( "NAME  REFERENCED" 1 s 

new .lines 

put!  " - "  1 ; 

new. lines 

and  its  --  if  sereen.counter  =  10 

end  its  —  if  symbol.tablel i  )  .declaration. type 

end  loops  —  for  i  in  0 ..( last.entry. index-1 ) 

new. line! 2  )  S 

put<"  - Entar  any  letter  to  continue - '*  )  s 

new.line  s 

get I  HOLD .CHARACTER  I s 
CLEARSCREEN s 
SCREEN.COUNTER  :=  Os 

and  loops  —  for  dec lare. type  in 

end  VIEW.SCOPE.STRUCTURESs 


—  this  procedure  aisplays  the  Halstead  operand  metric  data  for 

—  variables)  numeric  constants)  and  global  variables, 
procedure  VI EH. VARIABLES  is 


SCREEN.COUNTER  :  integer  :=  Os 
NAME  s  str ing( 1 . . LINESIZE ) s 

SIZE.  COUNT  :  integers 

HOLD.CHARACTER  :  characters 

SKIP  :  boolean s 

CONTINUE  !  boolean s 

begin 

CLEARSCREENs 

put!  " SHHHUtSHHHHHUHHHHHHUHHHHHHUHMHMHHHHHHHHUHUHHHHHHHHt SHHHHHHt"  )  S 
put(  '"**»****#»****»**»**»***"  )  S  nOW.linel  2  )  S 


CONVERT.UPPER.CASE! DATA.FILE.NAME ,  DATA.FILE.SIZE  )s 
for  DECLARE.TYPE  in  VARIABLE.DECLARE . .NO.DECLARE  loop 
SKIP  :=  FALSE s 
CONTINUE  :=  FALSE S 
case  DECLARE.TYPE  is 

when  VARIABLE.DECLARE  => 

put  (  11  VARIABLES  for  file  -  "  )s 
when  CONSTANT.DECLARE  => 

putt"  CONSTANTS  for  file  -  ")s 
whan  NO.DECLARE  => 

put! "  GLOBAL  VARIABLES  for  file  -  ")s 
when  others  =>  nulls 

end  cases 

put ( AD JUST.LEXEMEI DATA.FILE.NAME,  DATA.FILE.SIZE  ))  s  new.line!  2 )s 

put!  "NAME  REFERENCED"  )S  rsew.lines 

put(" - "  ) s  new.line s 


while  not  (SKIP)  loop 

for  I  in  0. .( LAST.ENTRY.INDEX-l )  loop 

NAME  :=  SYMBOL.T ABLE ( I  I.LEXEME.ADDRESS. OPERANDS 
SIZE  :=  SYMBOL.T ABLE! I I.LEXEME.ADDRESS. SIZE s 
COUNT  :=  SYFCOL.T ABLE (I). REFERENCES 


'V  w.  nn  * 


if  (SYMBOL.TABLEIII.OECLARATION.TYPE  =  DECLARE_TYPE  )  than 
put! AOJUST.EDIT.BUFFERI NAME ,  SIZE  ))S 
putl COUNT ,  5  ) s  rtew.l  ine l 

SCREEN_COUNTER  :=  SCREEN.COUNTER  +  Is 
if  (SCREEN.COUNTER  =  10)  than 
new.Lirtel 3 ) s 

putl"  -  Enter  'S'  to  stop  or  any  other  latter  to" H 

put l "  continue  - " ) i 

new. lines 

get l HOLO.CHARACTER  I  s 

if  l HOLO.CHARACTER  =  ’S')  or  ( HOLD_CHARACTER  =  *s')  then 
SKIP  :=  TRUE  s 
and  if  s 
CLEARSCREENs 
case  OECLARE.TYPE  is 

when  VARIABLE.QECLARE  =  > 

put!"  VARIABLES  for  file  -  ")s 
when  CONSTANT. DECLARE  => 

putl "  CONSTANTS  for  file  -  " ) v 
when  NO.OECLARE  => 

putl"  GLOBAL  VARIABLES  for  file  -  ")s 
when  others  =  >  null) 

end  cases 

putl ADJUST.LEXEMEl OATA.FILE.NAME ,  DATA.FILE.SIZE  ))  s  new_line(2)s 
putl "NAME  REFERENCED"  I  s 

new. line  v 

putl  " - "  )  s 

new.lines 

SCREEN.COUNTER  :=  Os 

end  ifs  —  if  screen.countar  -  10 

end  ifs  —  if  symbol.tablei i  I  .declaration.type 

if  l I  =  LAST.SNTRY.INOEX  -  1)  then 
CONTINUE  ;=  TRUE) 

end  ifs  --  if  i  =  last_entry_index-l 

exit  when  SKIP) 

end  loops  —  for  i  in  0 . . I last_entry_index-l ) 

new. line s 

exit  when  ((SKIP)  or  (CONTINUE ))S 
and  loops  —  while  not  skip  loop 

exit  when  SKIP) 
new_lines 

putC  -  Enter  any  letter  to  continue  - ">) 

new_ lines 

getl HOLO.CHARACTER ) s 
CLEARSCREENs 
SCREEN_COUNTER  :=  Os 

end  loops  —  for  declare. type  in 


CLEARSCREENs 


now_line( 2  ) s 

putt AOJUST.EDIT.BUFFERI "Total  number  of  operands  used",  29)  )s 
putl  LAST_ENTRY_INDEX  -  1,  5)s  new.lines 

putl ADJUST.EOIT.BUFFERI  "Total  number  of  occurences,  all  operands",  40  )  )  s 
put(T0TAL_0PERAND_C0UNT,  5  Is  new_line(3)s 

putC*  - Enter  any  letter  to  continue - "Is 

new. lines 

getl HOLO.CHARACTER ) s 
end  VIEW.VARI ABLES  s 


—  this  procedure  displays  the  Halstead  operand  metric  data  for 
--  tasks,  and  blocks, 
procedure  VIEW.BLOCKS  is 

SCREEN.COUNTER  :  integer  :=  0) 

NAME  :  stringl 1. .LINESIZE Is 

SIZE,  COUNT  :  integers 
HOLO.CHARACTER  :  characters 


\  •‘.VA 
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begin 

CLEARSCREEN) 

putt  "iHHHHHHHHHHHHHHHHHHHHHWHHHHHHHMHHHHHHHHHHHHHHHHHHHHHHHHH)*1  )  ) 
put ( "a***********#**#*******"  ) )  new_line(  2  )  > 

CONVERT_UPPER_CASEl OATA_FILE_NAME  ,  DAI A_FILE_SIZE  >) 

•for  OECLARE.TYPE  in  TASK_DECLAR£ . .BLOCK_DECLARE  loop 
case  DECLARE_TYPE  is 
when  TASK_DECLARE  => 

putl"  TASKS  for  file  -  ”  )  ) 
when  BLOCK_DECLARE  => 

putt"  BLOCKS  for  file  -  ")) 
when  others  =>  null) 

end  case) 

put)  ADJUST_LEXEME(  OATA_FIL£_NAME  >  OATA_FILE_SIZE  H  )  new_line(2H 

put( "NAME  REFERENCED"))  new_line) 

putl  " - "  ) )  new_iine) 


for  I  in  0 . . 1 LAST_ENTRY_IN0EX-1  l  loop 

NAME  :=  SYMBOL_TABLE( I  ).L£XEME_ADDRESS. OPERAND) 

SIZE  :=  SYM80I _ T ABLE! I  ) . LEX£ME_ ADDRESS . SIZE ) 

COUNT  :=  SYMBOL_TABLE( I  ). REFERENCE) 

if  ( SYMBOL_TABLE( I  ) . DECLARATION_TYPE  =  DECLARE_TYPE  )  then 
put ( AOJUST_EDIT_BUFFERI NAME ,  SIZE  I  ) ) 
put!  COUNT,  5))  new_line) 

SCREEN_COUNTER  : =  SCREEN_COUNTER  ♦  1) 
if  I SCREEN.CCUNTER  =  101  than 
new_linal 3  I ) 

putl"  -  Enter  any  latter  to  continue  - ")) 

new_line ) 

getl HOLD_CHARACTER  I ) 

CLEARSCREEN) 

SCREEN_COUNTER  :=  0) 
case  DECLARE.TYPE  is 

when  TASK_0ECLARE  => 

putl"  TASKS  for  file  -  ” )) 
when  BLOCK_OECLARE  => 

putl"  BLOCKS  for  file  -  ">> 
whnn  others  =>  null) 

and  case) 

putl ADJUST_LEXEME( DATA_FILE  NAME,  DATA_FILE_SIZE  ) )  >  new_line(2)> 
putl  "NAME  REFERENCED")) 

new_line) 

putl  - - "  »> 

new_line) 

end  if)  --  if  screen_counter  *  10 

and  if)  —  if  symbol_tablol i  ) . declaration_type 

end  loop)  —  for  i  in  0. . ( last_entry_index-l ) 

new_l inel 2 ) ) 

putl"  -  Enter  any  letter  to  continue  - ")) 

naw_line) 

getl HOLD_CHARACTER ) ) 

CLEARSCREEN) 

SCREEN_COUNTER  :=  0) 

end  loop)  —  for  dec la re_ type  in 

end  VIEW_BLOCKS) 


--  this  procedure  calculates  and  displays  all  of  the  variables  used  in 

—  evaluation  of  the  Halstead  length  metric.  The  conclusions,  which  are 
--  determined  from  the  calculated  lengths,  are  based  on  Halstead's 

—  observations, 
procedure  METRIC_CONCLUSIONS  is 

HOLO_CHARACTER  :  character) 

LITTLE_N1 ,  LITTLE_N2 ,  BIG_N1,  BIG_N2  :  integer) 

LOG.RESULT,  DIFFERENCE,  DISPARITY  :  float) 

ADD_RESULT  :  integer) 
begin 
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CLEARSCREEN) 

open! 0ATA_FILE4»  in_file,  DATA_FILE_NAME  A  ".hals")} 

get! 0ATA_FILE4,  LITTLE_N1 >  5>) 

gat! 0ATA_FILE4  >  BIG.Nl,  5H 

get! 0ATA.FILE4,  LITTIE_N2,  5H 

get! 0ATA_FILE4.  BIG_N2,  5 

ADD_RESULT  :  =  BIG.Nl  ♦  BIG_N2) 

IGG_R£SULT  :=  I  float!  LITTLE.Nl  )  *  L0G2!  float!  LITTLE_N1 )  )  I  + 

( float! LITTLE_N2  I  *  L0G2I float! LITTLE_N2  lilt 
DIFFERENCE  :=  LOG.RESULT  -  float! AD0_RESULT )) 

DISPARITY  :  =  DIFFERENCE  /  float! TOTAL_LINES_INPUT  )  ) 

put! "Oaf inition  of  Halstead  variables")!  new.line) 

out!"  nl  -  numoer  of  distinct  opera  tors" * ;  new.line; 

out!”  n2  -  number  of  distinct  operands11);  rew.line; 

put!"  NI  -  total  numoer  of  occurences  of  operators”  )  ;  new.line; 

putl  11  N2  -  fotai  number  of  occurences  of  operands"  new .Line! 2 H 

put! ADJUST_EDIT_8UFFER( "Theoretical  Length  nl*loglnli  *  o2*logt n2 1 )" ,  44  I  ) » 
put!  LOG. RESULT  >  5,  1,  OH  new_line; 

put!  ADJUST  _EDI7_BUFFER(  "Actual  Length  Nl  ♦  N2)",  23)1} 
put!  ADO_RESLu_T  >  SH  new_lina(2l) 

put! ADJUST_EDIT_BUFFER! "Difference  between  theoretical  and  actual".  41))! 
put!  DIFFERENCE.  3,  1,  OH  new.  lire; 

put! A0-UST_HDIT_3UFFER( "Disparity  'Difference  /  Total_lines_input )" .  42  )  ) ; 
put!  DISPARITY .  5.  1,  0)1  new_line!2)v 


if  ((DISPARITY  >  0.5 )  and  (DISPARITY  <=  1.0)1  then 


put 

put 

put 

put 

put 

put 

put 

put 

elsif 

put 

put 

put 

put 

put 

put 

put 

put 

alsif 


put 

put 

put 

put 

put 

put 

put 

put 

put 

put 

put 

put 

put 

put 

put 

put 

put 

put 


"A  very  large  oositive  disparity.  Reasons:");  newline; 

"  1  -  POSSIBILITY  OF  OPERANDS  DECLARED  3UT  NOT  J5ED  ');  new.Iine; 

"  Thera  my  be  some  vanaDles  vhicn  were  declared  ");  new.line; 

"  but  never  referenced  in  the  program");  new.line; 

"  2  -  USE  OF  GLOBAL  VARIABLES.");  new_line; 

"  A  large  number  of  •‘■he  variables  referenced  were  ");  new.line; 

"  declared  in  the  package  instantiations  by  the  "  ) ;  new_line; 

"  WITH  statements.")}  new_line; 

(DISPARITY  >  0.0)  and  (DISPARITY  <»  0.5))  then 
"A  small  positive  disparity.  Reasons:  "))  new_line; 


'  1  -  SOME  OF  THE  OPERANDS  DECLARED  WERE  NOT  USED  "  );  new_line} 

1  There  my  be  some  variables  which  were  declared  ”)}  new_line) 

1  but  never  referenced  in  the  program"  ) ;  new.line) 

'  2  -  SOME  USE  OF  GLOBAL  VARIABLES.  ")>  new.linev 

'  A  large  number  of  the  variables  referenced  were  ")}  new_line) 

declared  in  the  package  instantiations  by  the  "  ) )  new_line; 

■  WITH  statements."))  new_line) 

(DISPARITY  >  -0.5)  and  (DISPARITY  <=  0.0))  then 
new_linel 

put!"  -  Enter  any  character  to  continue  - ")}  new_l ine ; 

get! HOL0_CHARACTER ) ) 

CLEARSCREEN) 


A  small  negative  disparity.  By  Halstead's  standards,  this  is  ")) 
a  well  polished  program.  ")}  new_line) 

However  there  may  exist  any  of  the  following:  "))  new_line» 

1  -  CANCELLING  OF  OPERATORS  ">)  new_line; 

The  occurence  of  an  inverse  cancels  the  effect  of  a  ")) 
previous  operator.")}  new_line) 

2  -  AMBIGUOUS  OPERANDS  "))  new_line) 

Same  operand  represents  two  or  more  variables."))  new_line) 

3  -  SYNONYMOUS  OPERANDS  " ) )  new_line) 

Two  or  more  operands  represent  the  same  variable.”)}  new_line) 

4  -  COMMON  SUBEXPRESSION  ">)  new.line) 

The  same  subexpression  occurs  more  than  once.  "))  new_line) 

5  -  UNNECESSARY  REPLACEMENTS  “)}  new.line) 

A  subexpression  is  assigned  to  a  temporary  ")}  new_line) 
variable  which  is  used  only  once.  "))  new_line) 

6  -  UNFACTORED  EXPRESSIONS  ")}  new.line) 

Repetitions  of  operators  and  operands  among  unfactored  “)} 
terms.  "))  new.line) 


•  Is* 

new_line! 

putl"  - Enter  any  character  to  continue - ")>  rtew_linei 

get( HOLD_CHARACTER )  ! 

CLEARSCREENi 

putl "A  large  negative  disparity.  Halstead  gives  six  reasons:  " )!  new_lir>ei 
put!"  1  -  CANCELLING  OF  OPERATORS  ")i  new_line! 

putl"  The  occurence  of  an  inverse  cancels  the  effect  of  a  "  )  | 

putl  "previous  operator.")!  new_line! 

putl"  2  -  AMBIGUOUS  OPERANDS  "h  new_line) 

putl"  Same  operand  represents  two  or  more  variables.")!  new_line! 

put!"  3  -  SYNONYMOUS  OPERANOS  ")!  new_lir>e! 

putl"  Two  or  more  operands  represent  the  same  variable. ") !  new_line! 

put!"  4  -  COMMON  SUBEXPRESSION  "H  now_iine! 

putl"  The  same  subexpression  occurs  .more  than  once.  ")!  new_iinei 

putl"  5  -  UNNECESSARY  REPLACEMENTS  "  I  i  new_linei 

put!"  A  subexpression  :s  assigned  to  3  temporary  ">!  new_linei 

putl"  variable  which  is  used  only  once.  "H  new_line! 

putl"  o  -  UNFACTORED  EXPRESSIONS  "  I  i  new_lsnei 

putl"  Repetitions  of  operators  and  operands  among  unfactored  ")l 

putl "terms.  ")i  new_linet 
end  if ! 
new_line! 

putl"  -  Entar  any  character  to  continue  - ")!  new_linei 

get! HOLO_CHARACTER  ) ! 
olosel 0ATA_rIL£4  i  . 

and  METRIC_CONCLUSICNS ! 


—  this  function  computes  the  .ag  to  the  case  2  of  a  numDer  oy  using 

—  natural  logarithms. 

function  ..OGCI  NUMBER  :  float)  return  rloac  is 
:<>  f  :  float! 
begin 

X  :=  NATURAL_LOGi NUMBER)! 

Y  •.=  NATURAL_LOGI  2.0)> 
return  (X/Y)! 
end  L0G2 i 


--  this  function  computes  the  natural  logarithm  of  a  number, 
function  NATURAL_LOG( NUMBER  :  float)  return  float  is 
A  :  constant  array  (0..5)  of  float 

:  =  I  0 . 68629150E  +00 ,  0 . 67341785E-02 ,  0 . 11894142E-03 , 

0.25009347E-05,  0 .57260S01E-07,  0 . 13791205E-08 )  \ 

XP,  Y  :  float! 

M  :  integer! 

BO,  Bl,  B2  :  float! 

begin 

XP  :=  NUMBER! 
if  IXP  <  0.0)  then 
raise  OEVICE.ERROR I 
end  if! 

M  :=  0! 

while  I XP  >=  2.0)  loop 
M  :=  M  +  l! 

XP  :=  XP/2.0! 
end  loop! 

Y  :=  3.0  *  IXP  -  1.0  I/I  XP  ♦  1.0)1 


XP 

= 

4.0  *  Y  *  (Y 

-  2.0)v 

B0 

= 

0.0! 

Bl 

s 

0.0! 

for 

I 

in  reverse  5. 

.  0  loop 

B2  :=  Bl i 
Bl  :=  B0i 
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return  (  float! M)  *  0.69314718  ♦  Y  #  I  BO 
and  NATURAL_LOG > 

and  HALSTEAD_DISPLAY i 


TITLE: 


AN  ADA  SOFTWARE  METRIC 


—  MODULE  NAME: 

—  DATE  CREATED: 

—  LAST  MOOIFIED: 


INITIAL_DISPLAY 
05  OCT  86 
OS  DEC  86 


—  AUTHORS:  LCOR  JEFFREY  L.  NIEDER 

LT  KARL  S.  FAIRBANKS,  JR. 


DESCRIPTION:  This  package  contains  the  procedures  that 
introduce  the  metric  program  and  manages  the  data 
files . 


- iHHHHHHUHHHHHUMUHHHUHHHHHHHHHHHUHUHHHUHHHHHHHUHHHHHHHHHHHHHHHHHt - 


with  OISPLAY_SUPPORT ,  PARSER_0,  HALSTE AD_METRIC ,  GLOBAL_PARSER ,  GLOBAL,  TEXT_IOt 
use  0ISPLAY_SUPPORT,  PARSER_0,  HALSTE AD_METRIC ,  GLOBAL_PARSER ,  GLOBAL,  TEXT_IOt 

package  INITIAL_DISPLAY  is 
procedure  INITIAL_SCRE£N t 
procedure  INTRODUCTION t 
end  INITIAL_OISPLAYt 


package  body  INITIAL_OISPLAY  is 

—  this  procedure  opens  ail  data  files  for  *he  input  file,  starts  the 

the  parsing  process,  writes  the  metric  data  to  the  appropriate  files, 
closes  the  data  files,  and  prompts  the  user  for  further  input  files 
to  parse. 

procedure  INITIAL_SCREEN  is 
DONE  :  boolean  t 
begin 

FINISHED  :=  FALSE  1 
while  not  FINISHED  loop 
DONE  :=  FALSE  t 

openl RESULT_FILE  ,  out_file,  "RESULTS . ADA"  )  t 
GET_FILENAME I TYPE_PRESENT  It 


if  I TYPE_PRESENT  I 
openl TEST_FIIE 
createl DATA_FI 
createi DATAFI 
createl DATA_FI 
createl DATA  FI 
else 

openl TEST.FILE 
crea  tel  OAT  A  FI 
crea  tel  DAT  API 
createl DATAFI 
create! DATAFI 
end  l f  t 


then 

,  in_f ile,  TEST_FILE_NAME  It 

LEI,  out_f i la ,  OAT A_FILE_NAME  i  ".data" It 
LE2  ,  out_file,  DAT A_FI LE _NAME  l  ".misc"  It 

LEJ,  out_f i le ,  DATA_FILE_NAME  i  " . rand"  1 1 
LEh,  ou t _ f i 1 e ,  DATA_FILE_NAME  i  ",hals"lt 

,  in_file,  TF i  _F  I  LE  _NAME  1  ".ada"lt 

LEI,  out_ f i le ,  DATA _FILE_NAME  i  ".data"  It 
LE  2  ,  out_  f  i  le  ,  DATA_FILE_NAME  &  ".  ruse"  It 

LEJ,  out_  f  i  le  ,  DATA_FILE_NAME  t  ".rand"  It 
LEA ,  out_f i le ,  0ATA_FILE_NAME  1  ",hals"lt 


INITIALIZE_0PERAND_LI3TI DATAFILE  _NAME ,  HE  AD .NODE  It 


if  I  COMPILATION  I  then 
new  1 ine  > 

CLEARSCREENt 

puti  "asaaaaaaaaaaasaaaaBBaaaaaaBaBBBBaaaaaBaaBaaaa"  1 1 
putt "aaaaaaaaaaanasaaaaaaaaaaaaasaaaaaa" it  newlinet 

put!  "8  "It 

put!  "  8"  1 1  new  linot 

put("8  Parse  of  Ada  program"  It 

put!"  complete  8"  1 1  new_linet 


s: 


putt"#  ")) 

putt”  #"))  new_line) 

nn*(  l  .  ri£>ui  1  ipul 

VI  WBBIMTfl  IIIMMlfMMIItWBTMIBn  />  I  WW  1*1  Wf  > 

•Isa 

put! "Attempting  to  parsa  a  non. compilable  program")) 
and  if) 
new_linel 3 ) ) 

WRITE_OPERATOR_TABLE(OATA_FILE1,  0ATA_FUE2>  DATA_FILE4 ) ) 

WRITE_0PERAND_TABLE(DATA_FIUE3,  0ATA_FILE4 ) ) 

WRITE_NESTING_TABLEl 0ATA_FILE2 ) ) 

ciosai DATA_FILE1 ) ) 
ciosat  0ATA_'IL£2 ) ) 
ciosai 0ATA_FILE3 l ) 
ciosa( DATA_rILE4 I ) 
ciosat  RESULT_FILE It 

ciosat TEST_FILE )) 


while  not  (DONE!  loop 
new_linai Z ' ) 

putt  “*♦+♦♦♦♦♦++♦+++♦■*♦+■*♦♦♦♦♦+♦♦♦♦♦+♦+■*♦♦+♦♦+♦♦♦♦♦♦♦♦♦+♦■♦♦ 

outl  "*♦+•►+♦+•*•*•*++++♦+■»■*•►•*++++♦♦"  ))  naw_lina) 
putt "♦ 

putt"  ♦"))  naw_lina) 

putt"*  Tha  program  has  complatad  tha  parsa  of  your 

putt"  input  +  iie  ♦  "!)  new_lina) 

putt  "* 

put1"  ♦"))  new_lina) 

putt  ”♦  Oo  you  want  to  parse  another  file  ?  I  Y/ 

putt  "N  )  ♦"))  new_linet 

putt  "♦ 

putt"  ♦"))  new_linet 

putt"*  Type  *Y'  for  YES  and  'N'  for  NO 

putt"  ♦"))  rtaw_lina) 

putt  "♦ 

putt"  +"))  naw_lina ) 

putt 

putt "*♦♦♦♦♦♦♦♦♦♦+♦♦♦♦+♦+♦♦♦♦♦♦+"))  new_line( 2 ) ) 
putt  "Answer  :  ")) 


GET_ANSHER<  ERROR .FINISHED  1 ) 

get_line< INPUT_FILE_NAME ,  LENGTH_OF_LINE  I) 

new_l ina t 

RESET_PARAMETERS) 


flush  system  input 
buffer 


if  ERROR  than 
r>ew_  1  inel  2  I ) 


putt | | I  11 | | 
putt  "I  I  I  I  I  I  |  I 
putt  " 
putt  " 

putt  "  You  ai 
put  I "  or  ' N ' 
putt  " 
putt  " 
put (  " 
putt  “ 

putt  "I  I  I  I  I  I  I  I 
putt  "I  I  I  III  I  I 

•  Isa 

DONE  : =  TRUE  1 
and  i f ) 
and  loop  t 
and  loop i 


III  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  1  '  I  II  I  I  I  I  I  I  I  I  I  I  I  I  I  I  1  I  I  I  I  I  I  I  I "  ) 

I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I"  I)  n«w_ 1 ina ) 

n  \ 

" I )  new_l ina > 

You  either  omitted  or  improperly  entered  your  *Y" I 
or  'N'  answer  "1)  new_lir>ei 

Please  Try  Again  "I 

" 1 )  new_l ina  > 

"  I )  new_ 1 ina  ) 

I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  II  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I"  ) 

I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I"  I)  new_line( 


--  if  ERROR 
--  wh  i la  not  dona 
--  ootar  wh i la  loop 


and  INITIAL_SCRE£N) 


—  this  procedure  produces  the  initial  screen  displayed  to  the  user, 
procedure  INTRODUCTION  is 

HOLD_CHARACTER  :  character) 
begin 

CLEARSCREEN) 

putt  "*********************"  )  )  new_line> 

putt  ~  ”)) 

putt"  *"))  new_linet 

putt  "*  WELCOME  TO  '  AdaMEASURE1  ■■ ); 

putt"  *"  t)  new_line) 

putt"*  ")) 

putt"  *“  H  new_line) 

putt"*  AUTHORED  3Y :  ICDR  JEFFREY  L.  NIEDER" ) ) 

putl">  USN  *"))  new_line) 

putt"*  LT  KARLS.  FAIRBANKS")) 

putt".  USN  *"))  rtew_line) 

putt"*  ")) 

putt"  *" U  new_line> 

putt"*  NAVAL  POSTGRADUATE  SCHOOL")) 

putt"  *"))  new_iine) 

putt"*  DEPARTMENT  OF  COMPUTER  SCIEN" ) ) 

put("CE  *"))  new_line) 

putt"*  MONTEREY,  CALIFORNIA  ")) 

putt"  *"))  new_line) 

putt"*  "); 

putt"  *"))  new_linet 

putt"*  31  OCTOBER  1986  ")) 

putt"  *"))  new_line) 

putt"*  "  )) 

putt"  *"))  new_line) 

putt"*  VERSION  1.0  ”)) 

putt"  *"))  new_line) 

putt"*  “)) 

putt"  *"))  new_line) 

putt"*  This  program  provides  an  automated  software  ")) 

putt  "metric  tool  which  *"  ) )  r»ew_line) 

putt"*  uses  quantitative  measures  in  an  effort  to  su")) 

putt "pply  the  user  with  *"  ) )  new_line) 

putt"*  helpful  information  about  the  static  structur")) 

putt "e  of  a  given  input  *"  ) )  new_line) 

putt"*  program.  This  program  is  public  domain  infor")> 

putt "nation.  *"  ))  new_line) 

putt"*  " )) 

putt"  *"))  new_line) 

putt "***********************************************"  )) 

putt "*********************"  ))  new_line( 2  )) 

putt"  -  Enter  any  letter  to  continue  - ")> 

new_line) 

gett  HOLD_CHARACTER ) ) 
end  INTRODUCTION) 


end  INITIAL.DISPLAY) 
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MODULE  NAME : 
DATE  CHEATED: 
LAST  MODIFIED: 

AUTHORS: 


AN  ADA  SOFTWARE  METRIC 

PACKAGE  LOW_LEVE L_SCANNER 
06  JUN  86 
04  NOV  86 

LCOR  JEFFREY  L.  NIEDER 
LT  KARL  S.  FAIRBANKS,  JR. 


DESCRIPTION:  This  package  contains  six  of  the  seven 
procedures  used  to  identify  the  token  types.  The 
seventh  procedure,  used  to  identify  numeric  literals 
is  contained  in  package  NUMERIC. 


with  NUMERIC,  GET.NEXT.CHARACTER »  GLOBAL i 
use  NUMERIC,  GET.NEXT.CHARACTER,  GLOBAL j 

package  LOW.LEVEL.SCANNER  is 

procedure  GET_ID£NTIFIER<  TOKEN.RECORD :  in  out  TOKEN_RECORD_TYPE  )» 
procedure  FLUSH.SEPARATORSI TOKEN.RECORD :  in  out  TOKEN_RECORD_TYPE  )  > 
procedure  GET_DELIMIT£R<  TOKEN.RECORD :  in  out  TOKEN.RECORD.TYPE )v 
procedure  FLUSH.COMMENTI T0KEN.REC0R0 :  in  out  TOKEN.RECORD.TYPE  H 
procedure  GET.CHARACTER.LITI TOKEN.RECORD :  in  out  TOKEN.RECORD.TYPE  )  > 
procedure  GET.STRING.LITI TOKEN.RECORD :  in  out  TOKEN.RECORD.TYPE  )  \ 
end  LOW.LEVEL.SC ANNER l 


p nckage  body  LOW.LE VE L.SC ANNE R  is 

—  an  identifier  can  be  any  number  of  letters  or  digits  following  the 

—  first  letter,  with  a  single  underscore  allowed  between  any  pair 

—  of  letters  and/or  digits 

procedure  GET.IOENTIFIERI TOKEN.RECORD  :  in  out  TOKEN.RECORD.TYPE)  is 
DONE  :  boolean  :=  FALSE » 
begin 

while  (not  DONE)  loop 

—  store  the  character  in  the  lexeme  buffer 

—  and  increment  the  lexeme  pointer 
TOKEN.RECORD . LEXEME ( LEXEME.LENGTH  )  :=  NEXT.CHARACTER* 

LEXEME.LENGTH  :=  LEXEME.LENGTH  +  ll 

if  (( LOOKAHEAD.ONE .CHARACTER  in  UPPER.CASE. LETTER  )  or 
( LOOKAHE AD.ONE.CHARACTER  in  LOWER.CASE.LETTER  )  or 
( LOOKAHE AD.ONE.CHARACTER  in  DIGITS.TYPE  )  )  then 
GETNEXTCHARACTERI NEXT.CHARACTER ,  LOOK AHE AD.ONE.CHARACTER  )  \ 

elsif  ( ( LOOKAHEAD.ONE.CHARACTER  =  *_*  )  and  (NEXT.CHARACTER  =  *_*  I  I  then 
ERROR.MESSAGEI TOKEN.RECORD . TOKEN.TYPE  )  \  --  two  consecutive  underscores 

--  are  not  allowed 

elsif  (LOOKAHEAD.ONE.CHARACTER  =  '_’)  then 

GETNEXTCHARACTER( NEXT.CHARACTER ,  LOOKAHEAD.ONE.CHARACTER  )  \ 


else 

DONE  :=  TRUE * 
end  i f  i 
end  loop i 

end  GET.IOENTIFIERI 


—  identifier  token  accepted 


--  this  procedure  removes  all  the  separators,  which  are  delineated 
--  in  GLOBAL,  from  the  input  code 
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—  this  procedure  identifies  an  individual  character 

formators  ara  not  allowed  to  be  character  literals 


procedure  GET_CHARACTER_IIT<  TOKEN_RECORD 
STATE  :  positive  :=  It 
DONE  :  boolean  :=  FALSE  > 
begin 


in  out  TOKEN_RECORD  TYPE  )  is 
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V 
^  ^ 


y.< 


* ,  ^ t*1* 


NY.V. 


-■r. 


» -A  i_  d  « 


vl 


& 


while  (not  DONE)  loop 
case  STATE  is 

—  stora  tha  charactar  in  the  laxama  buffer 

—  and  increment  tha  laxama  pointer 

whan  1  =>  TOKEN.RECORO . LEXEME) LEXEME.LENGTH  )  :=  NEXT.CHARACTER i 
LEXEME.LENGTH  :=  LEXEME.LENGTH  ♦  li 

if  I LOOKAHEAO.ONE.CHARACTER  *  •••)  than 
STATE  : =  2 ) 

GETNEXTCHARACTERI HEXT_CHARACTER ,  LOOKAHEAO.ONE.CHARACTER  )  | 
alsif  (  character 'post  LOOKAHEAO.ONE.CHARACTER  ) 
in  FORMATORS)  than 

ERROR.MESSAGEf TOKEN.RECORO . TOKEN.TYPE I l 

else 

STATE  ■=  2  s 

GETNEXTCHARACTERI NEXT.CHARACTER ,  LOOK AHEAD. ONE .CHARACTER  I s 
and  i f  i 

whan  2  =>  if  I  LOOKAHEAD. ONE .CHARACTER  *  ' ' '  I  then 

—  store  tha  character  in  the  lexeme  buffer 

—  and  increment  tha  lexeme  pointer 
TOKEN.RECORO. LEXEME! LEXEME.LENGTH  I  :*  NEXT.CHARACTER I 
LEXEME.LENGTH  :*  LEXEME.LENGTH  ♦  Is 

GETNEXTCHARACTERI NEXT .CHARACTER ,  LOOKAHEAD. ONE .CHARACTER  )  s 
"OKEN.RECORD. LEXEME l LEXEME ..ENGTH)  NEXT.CHARACTER l 

else 

--  one  single  quote  ‘ound.  classify  as  accent  nark 
—  change  token  type  from  character  literal  to  delimiter 
TOKEN.RECORO. TOKEN  .TYPE  :*  OELIMITER i 
NEXT.SUFFER.rNOEX  =  CURRENT. SUFFER. INDEX! 
and  .  f ; 

DONE  :  ^  TRUE  s 


when  others  -~>  nulli 
end  easel 
and  loop  I 

and  GET.CHARACTER.LITi 


--  this  procedure  identifies  a  string  which  is  a  sequence  of  zero  or 
--  more  characters  between  double  quotas 

procedure  GET.STRING.LXTI  TOKEN.RECORO  :  in  out  TOKEN.RECORD.TYPE  I  is 
STATE  :  positive  :*  li 
DONE  :  boolean  :=  FALSE i 
begin 

while  (not  DONE)  loop 

--  store  the  character  in  tha  lexeme  buffer 
--  and  increment  the  lexeme  pointer 
TOKEN.RECORO. LEXEME  I LEXEME.LENGTH  I  :*  NEXT.CHARACTER I 
LEXEME.LENGTH  :=  LEXEME.LENGTH  ♦  1| 

case  STATE  is 

when  1  *>  if  ( LOOKAHEAO.ONE.CHARACTER  =  *"•)  than 

STATE  :  =  2 i  --  two  consecutive  quotas  seen 
else 

STATE  :=  4i  --  one  or  more  characters  in  the  string 
end  if i 

GETNEXTCHARACTERI NEXT.CHARACTER ,  LOOKAHEAO.ONE.CHARACTER  )  | 

whan  2  =>  if  (LOOKAHEAO.ONE.CHARACTER  =  than 

STATE  :*  3)  --  three  consecutive  emotes  seen 

GETNEXTCHARACTERI NEXT.CHARACTER ,  LOOKAHEAO.ONE.CHARACTER  ) ) 

else 

DONE  :=  TRUE)  --  string  of  zero  characters  accepted 
and  if  i 


--  ■  x'v. •.  -\V.- 
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whan  3  *> 


whan  4  => 


whan  5  => 


whan  6  - > 


whan  other* 
and  casai 
and  loop k 

and  GET.STRING.LITk 


if  ( LOOKAHEAO.ONE.CHARACTER  =  •••■  )  than 

GETNEXTCHARACTERI NEXT.CHARACTER,  LOOKAHEAD.ONE  CHARACTER  )> 
OKEN.RECORD . LEXEME ( LEXEME_LENGTH  )  :*  NEXT  CHARACTER k 
L  :XEME_LENGTH  :=  LEXEME.LENGTH  ♦  lk 
DONE  :=  TRUEk  —  four  consecutiva  quotes 

—  string  of  one  printable  quota  accepted 

else 

STATE  :=  4k 

GETNEXTCHARACTERI NEXT_CHARACTER >  LOOKAHE AD_ONE_CHARACTER  )  k 
and  if k 

if  ( LOOKAHEAD_ONE_CHARACTER  =  then 

STATE  :=  5k 

GETNEXTCHARACTERI NEXT.CHARACTER ,  LOOKAHEAD_ONE .CHARACTER ) k 
alsif  i character ‘ oosl NEXT_CHARACTER  I  in  FORMATORS  l  than 
ERROR.MESSAGE ( TOKEN_RECORD . TOKEN_TYPE ) k 
alsa 

GETNEXTCHARACTERI NEXT .CHARACTER ,  LOOKAHEAD.ONE .CHARACTER  )  t 
and  ifk 

if  ( LOOKAHEAO.ONE .CHARACTER  =  ■”’)  than 
STATE  :=  t>\ 

GETNEXTCHARACTERI NEXT.CHARACTER ,  LOOKAHEAO.ONE.CHARACTER  )  k 
alsa 

DONE  :=  TRUE.  —  string  literal  accepted 

and  it k 

if  I  LOOKAHEAD.ONE .CHARACTER  s  .  than 

STATE  :*  5k 

GETNEXTCHARACTERI NEXT .CHARACTER ,  LOOKAHEAD.ONE .CHARACTER ) k 

alsa 

STATE 

GETNEXTCHARACTERI NEXT .CHARACTER .  LOOKAHEAD.ONE .CHARACTER  )  k 
and  i f  k 

=>  null k 


and  LON.LEVE L.SCANNER  k 


TITLE: 


AN  ADA  SOFTWARE  METRIC 


—  MODULE  NAME:  MENU_DISPLAY 

—  DATE  CREATED:  11  OCT  86 

—  LAST  MODIFIED:  01  DEC  86 

—  AUTHORS:  LCDR  JEFFREY  L.  NIEOER 

LT  KARL  S.  FAIRBANKS,  JR. 

DESCRIPTION:  This  package  contains  the  procedures  that 
produce  the  menus  which  allow  the  user  to  select  a 

—  specific  'AdaMeasure'  operation. 

- ■**»)<  *MM#**####*###***###*#*«**-*####+*#*#**###*##*#*###K  ***»**■#■* — 

with  GENERAL_OATA ,  HALST£AD_OISPLAY ,  INITIAL_DISPLAY ,  DISPLAY_SUPPORT, 
GL08AL_PARSER  >  GLOBAL,  TEXT_IO> 

use  GENERAL_DATA,  HALSTEAD_OISPLAY  ,  INITIAL_DISPLAY ,  DISPLAY_SUPPORT , 
GLOBAL_PARSER ,  GLOBAL,  TEXT_IOj 

package  MENU_DISPLAY  is 
procedure  MENU; 
procedure  INITIAL.MENU V 
procedure  VIEW_HENRY ! 
end  MENU_0ISPLAYt 


package  body  MENU__0ISPLAY  is 

--  this  procedure 

displays 

the  metric  selection  menu  from  which  the  user 

can  make  the 

appropriate  selection. 

procedure  MENU  is 

DONE  :  boolean  : = 

FALSE  l 

begin 

while  not  DONE  loop 

CLEARSCREENi 

new_line i 

putt "a###****#*#*#*#********#**#*#****#*******#**#***********" )  \ 

putt "»#»»****»*»*»»*****#***"  )  (  new_linet 

putt  "* 

"It 

putt  " 

*")!  new_linet 

putt  "* 

METRIC  SELECTION  MENU  ")t 

putt  " 

»")!  new_linet 

putt  "» 

")t 

putt  " 

»" 1 1  new_line  t 

putt "* 

HERE 

ARE  THE  INFORMATION  CHOICES  AVAILABLE")! 

putt"  TO  YOU 

#")!  new_linet 

putt  "# 

")t 

putt  " 

*"  )  t  new_line  t 

putt  "* 

Simply  enter  the  number  of  your  choice")! 

putt  " 

#"  ) !  new_l ine ! 

putt  "* 

"  )! 

putt  " 

*"  )  i  new_line  t 

putt  "* 

1  - 

•HALSTEAD'  METRIC  INFORMATION  ")! 

putt  " 

*")!  new_linet 

put ( ”* 

"  )! 

putt  " 

»"  )  i  new_line ! 

putt  "* 

2  - 

COMMENT  AND  NESTING  METRIC  INFORMATION")! 

putt  " 

*")!  r>ow_l  ine  I 

putt  "» 

"  )! 

putt  " 

*"  1 1  new_l ine t 

putt  "» 

J  - 

•HENRY  and  KAFURA'  METRIC  INFORMATION  ")! 

putt  " 

*"  )  t  new_line ! 

put ( "# 

"  )! 

putt  " 

*")!  new_l  ine ! 

putt 

4  -  EXIT  TO  MAIN  MENU 

"  >s 

put( " 

*")s  new_lirvei 

putt"* 
put(" 
putf  “* 

*" Is  new_ lines 

5  -  EXIT  TO  OPERATING  SYSTEM 

“)s 

")s 

put(" 

#"  )  i  new_ lines 

put("* 

putt" 

put(  "WHHHHHH 

#"ls  new_lines 

•Ms 

MWMMWWWH  )  , 

put ( "Choice  =  "  1 1 
get)  ANSWER)* 

get_line<OUMMY_FILE_NAME,  LENGTH_OF_LINE )  s  —  flush  system  input  buffer 
new_line( Z I  s 
case  ANSWER  is 

when  '1'  =>  HALSTEAD s 
when  '2‘  =>  VIEH.GENERAL s 
when  '3'  =>  VIEH_HENRYl 
when  ‘4'  =>  OONE  :  =  TRUE » 
when  '5'  ->  raise  QUIT_TO_OS| 
when  others  *>  null s 
end  cases 
end  loops 
end  MENU  s 


—  this  procedure  displays  the  main  selection  menu  which  allows  the  user 

—  to  choose  to  parse  a  file>  view  previously  gathered  data>  or  quit  to 

—  the  operating  system, 
procedure  INITIAL_MENU  is 

OONE  ;  boolean  : *  FALSE  > 
begin 

INTRODUCTION  t 
while  not  OONE  loop 


CLEARSCREENs 

new_lines 

put 1  " *»»»*»*»»*»»»» 

"Is 

put!  1  j  new_lir»  \ 

put! "* 

"IS 

put  I  " 

*"  Is  r>ew_lines 

put!"* 

MAIN  SELECTION  MENU 

"IS 

put  (  " 

*"  Is  new_ lines 

put!"* 

"is 

putl  " 

»"  1  s  new  lines 

puts  "e 

HERE  ARE  THE  ACTION  CHOICES  AVAILABLE  TO 

"is 

putl  "YOU 

»"1S  new_lines 

putl  "» 

'Ms 

putl" 

»"lS  new_lines 

putl  "* 

Simply  enter  the  number  of  your  choice 

"is 

put!" 

*'Ms  new_lines 

putl  "* 

"IS 

put!" 

»"  Is  new_line  s 

putl  "* 

1  -  PARSE  AN  INPUT  FILE 

"is 

put!" 

*"  )  s  new_ lines 

putl  "» 

"Is 

putl  " 

*"  Is  new_lines 

putl  "» 

Z  -  VIEW  PREVIOUSLY  GATHERED  DATA 

"IS 

putl" 

»'•  IS  new_l ines 

putl  "« 

"is 

putl  " 

»")S  new_lines 

putl  "* 

3  -  EXIT  TO  OPERATING  SYSTEM 

"IS 

putl  " 

*" )S  new_lines 

putl  "» 

"IS 

putl  " 

»"  I  s  r>ew_  lines 

"is 

putl  " *#******#*#******»*»##*"  )  \  new_lin«( 2  1  \ 

put! "Choice  -  " ) s 

get)  ANSWER  Is 
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get_line( OUMMY_FILE_NAME ,  LENGTH_OF_LINE  )  )  —  flush  system  input  buffer 

new.linel 2 ) ) 
case  ANSWER  is 

whan  ‘l1  =>  RESET_PARAMETERS) 

INITIAL_SCREEN ) 

MENU) 

whan  '2'  =>  MENU) 
whan  'S*  =>  raisa  QUIT_TO_OS) 
whan  others  =>  null) 
and  casa) 
and  loop) 
and  INITIAL.MENU) 


—  this  procedure  is  just  a  placeholder  for  tha  implementation  of  the 

—  Henry  and  Kafura  complexity  flow  metric, 
procedure  VIEW_HENRY  is 

H0LD_CHARAC7ER  :  character) 
begin 

CLEARSCREEN) 

new_line) 

put( "=========================  ==========  =  =  ===  =  ====  ===================="  ) ) 

new_linel 2  ) ) 

putl "This  software  metric  has  not  yet  been  implemented  into  this")) 
new_line) 

putl "program.  It  is  hooed  that  this  information  will  be  added  in")) 
new_lina> 

putl "the  very  near  future.")} 
new_lina( 2 ) ) 

put! "==============  ==============================================5===="  I  ) 

new_line(  2  ) ) 

putl"  -  Enter  any  letter  to  continue  - "I) 

new_line) 

get! HOLD_CHARACTER  )  1 
and  VIEH_MENRY) 

and  MENUJISPLAY ) 


APPENDIX  D 

'ADAMEASURE'  PROGRAM  LISTING  -  PART  2 


—  TITLE: 


AN  ADA  SOFTWARE  METRIC 


--  MODULE  NAME:  PACKAGE  HAL3TEAD_METRIC 

—  DATE  CREATED:  04  XT  36 

—  LAST  MODIFIED:  01  DEC  36 


—  AUTHORS:  LCDR  JEFFREY  L.  NIEDER 

LT  KARL  S.  FAIRBANKS,  JR . 


DESCRIPTION:  This  packags  contains  all  of  the  declarations 
and  data  structures  required  by  our  metric,  as  well  as 
all  necessary  procedures  and  functions  for  gathering 
and  storing  the  metric  data. 


^  K  if  R  R  JT  ^  W  ^  W  P  P  .6  W  PW  RP  F  wk  F  A  WlrW  R  R  R  *“ 


with  GLOBAL,  SLOBAL.PARSER,  3YPASS_SUPP0RT_FUNCTI0NS ,  TEXT_I0) 
use  GLOBAL,  GLOBAL_?ARScR ,  3YPAS3_3UPPORT_FUNCTIONS ,  TEXT_I0) 

package  HALSTEAD _METRIC  is 

package  IEW_;NTEGcR_:0  ;s  new  'EXT_I0 . INTEGER_IO( integer  )  ) 
use  NEW_INTEGtR_;0» 


SCOPE_ON 

:  constant 

boolean 

:  r 

TRUE) 

SCOPEJDFF 

:  constant 

boolean 

:  = 

FALSE  > 

PACKAGE_DECLARE 

:  constant 

integer 

.= 

0) 

PRXEDURE_DECLARE 

:  constant 

integer 

:  = 

1) 

FUNCTION_DECLARE 

:  constant 

integer 

:  = 

2) 

TASK_DECLARE 

:  constant 

integer 

:  s 

3) 

BLXK_DE  CLARE 

:  constant 

integer 

:  = 

4) 

Vfl RIABLE_DECLARE 

:  constant 

integer 

:  = 

5> 

CONST  ANT_DECLARE 

:  constant 

integer 

:  = 

6) 

NO_DECLAR£ 

:  constant 

integer 

:  = 

7) 

IF_CONSTRUCT 

:  constant 

integer 

.  r 

0) 

LOOP_CONSTRUCT 

:  constant 

integer 

:  = 

1) 

HHILE_CONSTRUCT 

:  constant 

integer 

:  = 

2) 

FOR_CONSTRUCT 

:  constant 

integer 

:  = 

3> 

CASE_CONSTRUCT 

:  constant 

integer 

:  = 

4> 

IF_END 

:  constant 

integer 

:  = 

5) 

LOOP_END 

:  constant 

integer 

:  = 

6 ) 

CASE_EN0 

:  constant 

integer 

:  = 

7) 

NUMBER_OF_OPERANDS 

:  constant 

integer 

;  = 

500) 

FIRST_LEVEL_NEST 

:  constant 

integer 

:  = 

1) 

MAXIMUM_NESTING 

:  constant 

integer 

:  = 

15) 

type  OPERATOR_ARRAY_TYPE  is 

array  ( TOKEN_AND . . TOKEN_ASSIGNMENT  I  of  integer) 

type  OPERAND.TYPE) 
type  LINK  is  access  OPERAND_TYPE ) 
type  OPERAND.TYPE  is 
record 

OPERAND  :  string) 1 .. LINESIZE  ) ) 

SIZE  :  natural) 

NEXTJOPERAND  :  LINK) 

end  record) 


type  OPERANO.MATRIX  is 
record 
SCOPE 
REFERENCE 
DECLARATION.TYPE 
LEXEME _A00RESS 
end  record* 

type  HALSTEAO_OPERAND_ARRAY  is 

array* 0. .NUMBER.OF.OPERANDS )  of  OPERAND.MATRIX* 

type  NESTED_COUNT_TYPE  is 

array* FIRST_LEVEL_NEST. .MAXIMUM_NESTING)  of  integer* 

type  C0NSTRUCT_C0UNT_TYP£  is 

array* IF_C0NSTRUCT. .CASE .CONSTRUCT)  of  integer* 

OPERATOR. ARRAY  :  OPERATOR.ARRAY.TYPE  :=  I TOKEN.AND . . TOKEN.ASSIGNMENT  =>  0)* 

NESTEO.COUNT  :  NESTE O.COUNT.TYPE  :=  * FIRST.LEVEL.NEST . . MAXIMUM.NESTING  =>  0)* 

CONST RUCT.COUNT  ;  CONSTRUCT.COUNT.TYPE  :=  ( IF.CONSTRUCT . . CASE .CONSTRUCT  =>  0)* 

SYMBOL .TABLE  :  HALSTE AO.OPERANO .ARRAY  * 

HEAD.NOOE,  NEW.NOOE  :  LINK* 


:  integer  t 
:  integer  :=  0* 
:  integer* 

:  LINK* 


0ECLARE.TYPE 

integer  := 

VARIABLE.OECLARE  * 

CURRENT.NESTING. LEVEL 

integer  := 

0* 

MAXIMUM.NESTING.tEVEL 

integer  := 

0* 

T0TAL.0PERAND. COUNT 

integer  : = 

0* 

NESTING.LINE. NUMBER 

integer  := 

0* 

symbol.table.index 

integer  := 

0* 

SCOPE. LEVEL 

integer  * 

LAST.ENTRY.INDEX 

integer  * 

NESTED.LEVEL.INCREASE 

:  boolean  := 

TRUE* 

NO. ITERATION 

:  boolean  :  = 

TRUE* 

procedure  OPERATOR.METRICI OPERATOR.INDEX  :  in  integer* 

CONSUME,  RESERVE .HORD.TEST  :  in  boolean)* 
procedure  OPERAND.METRIC *  HEAD.NOOE  :  in  out  LINK* 

LEXE ME .RECORD  :  in  out  TOKEN.RECORD.TYPE  * 
DECLARE.TYPE  :  in  integer  I* 
procedure  INITI ALIZE.OPERANO.LIST <  OAT A.FILE.NAME  :  in  out  string* 

HE AD.NODE  :  in  out  LINK)* 

procedure  ADD. SYMBOL*  TEMP.NOOE  :  in  out  Lit**  DECLARE.TYPE  :  in  integer  1* 
function  DUPLICATE.LEXEME I TEMP.NOOE  in  LINK)  return  boolean* 
procedure  RE  FERE NCE .UPDATE ( SYMBOL.T  ABLE. INDEX  :  in  out  integer)* 
procedure  WRITE.OPERATOR.TABLE I  OUTPUT  1 ,  OUT PU T 2 ,  OUT PUT 3  :  in  out  file.type)* 
procedure  WRITE.OPERANO.T ABLE ( OUTPUT  1 ,  OUTPUTZ  in  out  file.type  I* 
procedure  NESTING.METRIC ( NEST.TYPE  :  in  integer)* 
procedure  WRITE.NESTING.TABLE*  OUTPUT.FILE  :  in  out  file.type)* 
end  HALSTEAO.METRIC * 


package  body  HALSTEAO.METRIC  is 


--  this  procedure  updates  the  operator  array  based  on  the  parsing  of  a 
valid  Halstead  operator. 

procedure  OPERATOR.METRIC ( OPERATOR.INDEX  :  in  integer* 

CONSUME,  RESERVE .WORD.TEST  :  in  boolean)  is 

begin 

if  (CONSUME  I  and  then  not  ( RESERVE.WORD.TEST )  then 

OPERATOR.ARRAY ( OPERATOR.INOEX  )  :=  0PERAT0R.ARRAYI OPERATOR.INDEX  )  ♦  1* 
end  i f  * 
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end  OPERATOR.METRIC) 


—  this  procedure  builds  the  symbol  table  for  the  input  file>  and 

--  calls  the  appropriate  procedure  for  entering  or  updating  Halstead 

—  operand  information. 

procedure  OPERANO_METRIC<  HEAD.NOOE  :  in  out  LINK  ) 

LEXEME.RECORD  :  in  out  TOKEN_RECORO_TYPE t 
DECLARE_TYPE  :  in  integer)  is 

TEMP.NOOE,  TRAILER  :  LINK ) 

INPUT.LEXEME  :  s tr ingll . . LINESIZE  )  ) 

FOUND  :  boolean) 

SIZE  :  natural) 
begin 

TRAILER  :  -  HEAD.NODE) 

TEMP.NOOE  :=  HEAD.NODE .NEXT.OPERAND) 

INPUT.. EXEME  :=  LEXEME.RECORO . LEXEME ) 

SIZE  :=  LEXEME.RECORO. LEXEME.SIZE  -  1) 

FOUNO  :=  FALSE) 

while  ( TEMP.NODE  /=  null)  loop 

if  ( ADJUST.L.XEME ( INPUT.LEXEME  >  SIZE)  = 

ADJUST.LEXEME ( TEMP.NODE . OPERAND ,  TEMP.NODE .SIZE  )  )  then 
FOUND  :=  TRUE) 
else 

TRAILER  :=  TEMP.NODE) 

TEMP.NOOE  :=  TEMP.NODE . NEXT.OPERAND ) 
end  i f ) 

exit  when  FOUND) 
end  loop ) 

if  not  i FOUNO  )  than 

NEW. NODE  :=  new  OPERANO.TYPE ) 

NEH.NOOE .OPERAND  :=  INPUT.LEXEME) 

NEW.NODE.SIZE  :s  LEXEME.RECO.  0 .  LEXEME.SIZE  -  1) 

NEH.NOOE. NEXT.OPERAND  :=  null) 

TRAILER. NEXT.OPERAND  :=  NEH.NOOE  ) 

TEMP.NODE  :=  NEH.NOOE) 
end  if) 

if  not  l DUPLICATE  LEXEME I TEMP.NODE ) )  then 
ADD.SYMBOLI TEMP.NOOE ,  OECLARE.TYPE  ) ) 

else 

REFERENCE.UPDATEI SYMBOL.TABLE.INDEX ) ) 
end  if) 

end  OPE RAND .METRIC) 


—  this  procedure  initializes  the  head  node  for  the  symbol  table  - 
procedure  INITIALIZE.OPERANO.LISTI DATA.FILE.NAME  :  in  out  string) 

HEAD.NODE  :  in  out  LI)*  i  n 

begin 

HEAD.NODE  :=  new  OPERANO.TYPE) 

HEAD.NODE. OPERAND  :=  DATA.FILE.NAME) 

HEAD.NOOE. NEXT.OPERAND  :=  null) 

SYMBOL.TABLE.INDEX  :=  0) 

SCOPE.LEVEL  :=  0) 

LAST.ENTRY.INDEX  :=  0) 
end  INITIALIZE.OPERAND.LIST ) 


--  this  procedure  adds  all  of  the  information  about  *  *»-  ,»n.» 
it  is  initially  parsed. 

procedure  ADD.SYMBOLI  TEMP.NODE  :  in  out  LINK)  DECLARE  <  <  f  . 

begin 

SYM80L.T  ABLE  I  LAST.ENTRY.INDEX  I .  LEXEME  _  ADORE  T.3  =  M-.i 

if  (DECLARATION)  then 

SYMBOL.TABLEI  LAST.ENTRY.INDEX  I  DECLARATION  ’  t>  i‘- 

SYMBOL.TABLE  I  LAST.ENTRY.INOEX  I .  SCOPE  -  :.L  >  5  .1  • 


K* 


UNCLASSIFIED 


AOAHEASURE:  AN  ADA  (TRADE  NAME)  SOFTWARE  NETRIC(U) 
NAVAL  POSTGRADUATE  SCHOOL  HONTEREV  CA 
J  L  NIEDER  ET  AL.  AAR  87 


SYMBOL.TABLE ( LAST.ENTRY.INOEX). REFERENCE  :«  Ol 
•Is*  —  a  global  variabla 

if  ( OECLARE.TYPE  «  CONST ANT.DECLARE  )  then 

SYMBOL.T ABLE ( LAST.ENTRY.INOEX ) . OECLARATION.TYPE  :»  CONST ANT.DECLARE t 

also 

SYMBOL.TABLE! LAST.ENTRY.INOEX  I . OECLARATION.TYPE  :»  NO.DECLARE t 
and  ift 

SYMBOL.TABLE! LAST.ENTRY.INOEX). SCOPE  :«  0) 

SYMBOL.TABLE!  LAST.ENTRY.INOEX  PREFERENCE  :=  It 
and  if  t 

LAST_ENTRY_INOEX  :«  LAST_ENTRY_INOEX  ♦  It 
and  AOO.SYMBOLt 


—  this  function  determines  if  tha  currant  oearand  is  airaady  in  tha 
symbol  tab  la.  If  locataa.  *he  symbol  taola  indax  is  sat  to  tha 
--  appropriate  position. 

function  3UPLICATE.LEXEMEI  TEMP.NOOE  :  in  LINK  )  ratum  boolaan  is 


7E3T.NAME 

input.lexeme 

INPUT.SIZE 

TEST.SIZE 

LOCATED 


stringl 1. .LINESIZE It 
string! 1. .LINESIZE It 
natural t 
natural  t 
boolaan t 


bag  in 

LOCATED  :=  FALSE'. 

input.lexeme  temp.nooe. operand t 

INPUT.SIZE  :=  TEMP .NODE. SIZE t 

for  I  in  0. . ( LAST.ENTRY.IN0EX-1 I  loop 

TEST.NAME  :*  SYMBOL.TABLE! I  I . LEXEME. ADDRESS . 3PERAN0 1 
TEST.SIZE  : =  SYMBOL _r ABLE!  I P LEXEME .ADDRESS. SIZE t 
if  ! ADJUST.uEXEME! TEST .NAME,  TEST.SIZE  l  = 

AOJUST.'.EXEME I  INPUT. LEXEME  •  INPUT.SIZE  I  I  than 
LOCATED  :=  TRUE t 
SYMBOL. T ABLE.INDEX  :=  It 
and  ift 

axit  whan  LOCATED t 
and  loop t 
return  (LOCATED  It 


and  DUPLICATE.LEXEME t 


—  this  procedure  updates  the  reference  count  when  an  operand  is  parsed. 

—  after  initial  entry  into  tha  symbol  table. 

procedure  REFERENCE.UPOATE! SYMBOL.T ABLE.INDEX  :  in  out  integer)  is 
begin 

SYMBOL.TABLE! SYMBOL.T ABLE.INDEX  )  .REFERENCE  :  = 

SYMBOL.TABLE! SYMBOL.TABLE.INOEX ) . REFERENCE  ♦  It 
TOTAL.OPERAND.COUNT  :=  TOT AL.OPERAND.COUNT  +  It 
and  REFERENCE.UPDATE  t 


--  this  procedure  writes  the  Halstead  operator  count  data  to  the 
appropriate  files. 

procedure  HRITE_0PERAT0R_TABLE< 0UTPUT1 ,  OUTPLfTZ,  OUTPUTS  :  in  out  file. type)  is 
OPERATORS.USED,  OCCURENCES  :  integer  :=  Ot 
begin 

for  I  in  TOKEN. AND. .TOKEN. ASSIGNMENT  loop 
if  ( OPERATOR.ARRAY! I  )  /=  0)  then 

OPERATORS.USED  :=  OPERATORS.USED  ♦  It 
OCCURENCES  :=  OCCURENCES  +  OPERATOR.ARRAY) I  )> 
end  ift 

put! OUTPUT1 ,  OPERATOR.ARRAY! I),  5)) 
end  loop  1 

new. line I  OUTPUT 1 I t 


for  I  in  I F.CONSTRUCT. .CASE .CONSTRUCT  loop 


PiWJ  WJI.  1 1 1  IP'II.U’  u»  u>  u  WWW  w  iwmi  wvj  wwjwwff  v  *v  n  wi  ■>  n  * 


if  ( CONSTRUCT.COUNT ( I )  /»  0)  than 

OPERATORS.USED  :=  OPERATORS.USED  ♦  1) 
OCCURENCES  :*  OCCURENCES  ♦  CONSTRUCT.COUNT! I )  ) 
end  if v 

putl 0UTPUT1 .  CONSTRUCT.COUNT ( I )  >  S ) t 
and  loop  s 

putl OUT PUT 1 ,  OPERATORS.USED,  5)) 
put! OUTPUT 1 >  OCCURENCES,  5)1 

putl OUTPUT 2 ,  TQTAL.LINES.INPUT ,  5)) 
putl  OUT  PUT  2 ,  COMMENT  .COUNT  ,  5H 

putl OUTPUT3 ,  OPERATORS.USED,  5)) 
putl  OUTPUT3  •  OCCURENCES,  5  1) 


and  WRITE.OPERATOR. TABLES 


—  this  procedure  writes  the  Halstead  operand  information  to  the 

—  appropriate  files. 

procedure  HRITE.OPERAND.TABLEI 0UTPUT1 ,  OUTPUT 2  :  in  out  file.type)  is 
NAME  :  string! 1. .LINESIZE  )» 

SIZE  :  integers 
begin 

putl OUTPUT 1,  LAST .ENTRY .INDEX  -  1,  5  Is 
putl 0UTPUT2 ,  LAST.ENTRY. INDEX  -  1,  5  Is 
putl  0UTPUT1 ,  TOTAL.OPERANO .COUNT,  5H 
putl OUTPUT2 ,  TOTAL.OPERANO .COUNT,  Sis 
new. line! OUTPUT1 Is 

for  I  in  0. . I LAST.ENTRY.INDEX-l )  loop 

NAME  :=  SYMBOL.! ABLE III. LEXEME.AOORESS . OPERAND  S 
SIZE  :=  SYMBOL.TABLE 1 1 (.LEXEME. ADDRESS. SIZES 
putl OUTPUT1 ,  SYMBOL.T  ABLE  1 1  ) . SCOPE ,  S)S 
putl OUTPUT1 ,  SYMBOL.T ABLE! I  I . REFERENCE ,  Sis 
putl OUTPUT1 ,  SYMBOL.T ABLE  1 1 1.DECLARATION.TYPE,  5 1 » 

CONVERT  .UPPER  CASE!  NAME,  SIZE)S 
putl 0UTPUT1,  ADJUST.LEXEME I  NAME ,  SIZE J)s 
new.linel OUTPUT 1 ) s 
end  loops 

and  WRITE.OPERAND.TABLE  S 


—  this  procedure  maintains  the  maximsjm  nesting  level  attained,  the  number 

—  of  times  each  nesting  level  is  reached,  and  the  number  of  times  each 

—  nesting  construct  is  utilized. 

procedure  NESTING.METRICI NEST.TYPE  :  in  integer)  is 
begin 

case  NEST.TYPE  is 

when  IF.CONSTRUCT  LOOP.CONSTRUCT  WHILE.CONSTRUCT 
FOR.CONSTRUCT  CASE.CONSTRUCT 

=>  CONSTRUCT.COUNTI NEST.TYPE )  :=  CONSTRUCT.COUNT I NEST.TYPE 1  +  Is 
NESTED.LEVEL.INCREASE  :=  TRUES 

CURRENT .NESTING.LEVEL  :=  CURRENT.NESTING.LEVEL  ♦  Is 
if  I CURRENT.NESTING.LEVEL  >  MAXIMUM.NESTING.LEVEL  )  then 
MAXIMUM.NESTING.LEVEL  :=  CURRENT.NESTING.LEVEL) 
NESTING.LTNE.NUMBER  :=  TOTAL.LINES.INPUT ) 
end  if  s 

when  IF.END  LOOP.END  CASE.END  => 

if  (NESTED.LEVEL.INCREASE)  then 

NESTED.COUNT I CURRENT.NESTING.LEVEL  )  :  = 

NESTED.COUNTI CURRENT.NESTING.LEVEL )  ♦  1) 
NESTED.LEVEL.INCREASE  :=  FALSE) 
end  if) 

CURRENT.NESTING.LEVEL  :=  CURRENT.NESTING.LEVEL  -  1) 
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pwwv  jwuw  wwjwjimjw  wflimv.w.v.  ijvjwh  ifjiw  w  n  n  > 


when  others  *>  null > 
and  case) 

and  NESTING_METRIC  t 


—  this  procadure  writes  tha  nesting  metric  data  to  the  appropriate  file, 
procedure  WRITE.NESTING.TABLEf OUTPUT.FILE  :  in  out  file,  type)  is 
begin 

new_line(  OUTPUT.FILE ) i 

for  I  in  I F.CONSTRUCT. .CASE .CONSTRUCT  loop 
put <  OUTPUT.FILE ,  CONSTRUCT.COUNTtl) ,  5 ) » 
end  loop  ) 

new_lina( OUTPUT.FILE  ) ) 

put (OUTPUT.FI IE ,  MAXIMUM.NESTING.LEVEL,  5)) 
new.linat  OUTPUT.FILE ) i 

PUT( OUTPUT.FILE,  NESTING.LINE.NUMBER ,  S)» 
new.linel OUTPUT.FILE i ) 

for  I  in  FIRST.LEVEL.NEST. .MAXIMUM.NESTING  loop 
put< OUTPUT.FILE,  NESTE D.COUNT ( I  ) ,  5)) 
end  loop) 

end  WRITE.NESTING.TABLE > 
end  HALSTEAD.METRIC) 
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TITLE 


AN  ADA  SOFTHARE  METRIC 


—  MODULE  NAME: 

—  DATE  CREATED: 

—  LAST  MOOIFIEO: 


PACKAGE  NUMERIC 
13  JUN  86 
04  NOV  86 


—  AUTHORS:  LCOR  JEFFREY  L.  NIEDER 

LT  KARL  S.  FAIRBANKS,  JR. 


DESCRIPTION:  This  package  is  us ad  to  identity  the  following  — 
numeric  types:  integer,  real,  based  integer,  and 
scientific  notation. 


with  GLOBAL,  GET.NEXT.CHARACTER ) 
use  GLOBAL,  GET_NEXT_CHARACTER) 

package  NUMERIC  is 

procedure  GET_NUMERIC_LIT<  T0KEN_REC0RD  :  in  out  T0KEN_REC0RD_TYPE  )  ) 
end  NUMERIC ) 


oackage  body  NUMERIC  is 

procedure  GET_NUMERIC_LIT< TOKEN.RECORD  :  in  out  T0KEN_REC0RD_TYPE  )  is 
DONE  :  boolean  :=  FALSE l 
STATE  :  positive  :=  li 
begin 

while  (not  DONE)  loop 

—  store  the  character  in  the  lexeme  buffer 

—  and  increment  the  lexeme  pointer 
T0KEN_REC0RD . LEXEME ( LEXEME.LENGTH )  :=  NEXT_CHARACTER l 
LEXEME_LENGTH  :=  LEXEME .LENGTH  +  U 

—  each  option  in  the  case  statement  is  a  state  in  the  finite 

—  state  automata  for  determining  numeric  literals.  Ada  allows 
--  the  use  of  the  underscore  to  aid  readability  of  long  numeric  literals 

case  STATE  is 

when  1  =>  if  ( LOOKAHEAO_ONE_CHARACTER  in  DIGITS_TYPE  )  then 
STATE  :=  1) 

GETNEXTCHARACTERI  NEXT_CHARACTER ,  LOOKAHEAD_ONE_CHARACTER ) i 
elsif  ( LOOKAHEAD_ONE_CHARACTER  =  ’.')  then 
STATE  :=  2) 

GETNEXTCHARACTERI NEXT.CHARACTER,  LOOKAHEAD_ONE .CHARACTER ) > 
elsif  ( ( LOOKAHEAD.ONE.CHARACTER  =  ’ E ’ )  or 
( LOOKAHEAD_ONE_CHARACTER  =  'e'))  then 
STATE  :=  17 » 

GETNEXTCHARACTERI NEXT_CHARACTER ,  LOOKAHEAD_ONE_CHARACTER  ) ) 
elsif  (LOOKAHEAD_ONE_CHARACTER  =  •_')  then 
STATE  :=  9) 

GETNEXTCHARACTERI NEXT_CHARACTER,  LOOKAHEAD_ONE_CHARACTER ) \ 
elsif  ( ( LOOKAHEAD.ONE.CHARACTER  =  '#’ )  or 
( LOOKAHEAD_ONE_CHARACTER  =  '  : ’  )  )  then 
STATE  :=  10 » 

GETNEXTCHARACTERI NEXT_CHARACTER ,  LOOKAHEAD_ONE_CHARACTER ) ) 
elsif  I  I LOOKAHEAD_ONE_CHARACTER  not  in  UPPER_CASE_LETTER )  and 
I LOOKAHEAD_ONE_CHARACTER  not  in  LOWER.CASE.LETTER )  and 
(L00KAHEAD_0NE_CHARACTER  /=  and 

I LOOKAHEAD.ONE.CHARACTER  /=  '•"))  then 

DONE  :=  TRUE*  --  universal  integer  accepted 

else 

ERROR.MESSAGE I TOKEN.RECORD . TOKEN.TYPE ) \ 
end  if) 


whan  2  «>  if  ( LOOKAHEAD.ONE.CHARACTER  «  than  — tast  for  ranga  dots 

TOKEN.RECORD. LEXEME  I LEXEME.LENGTH  -  1)  ;*  1 
LEXEME.LENGTH  :*  LEXEME.LENGTH  -  It 
NEXT_BUFFER_INOEX  : =  CURRENT.BUFFER.INDEXt 

DONE  : =  TRUE t  —  univarsal  intagar  pracsdad  thasa 

--  ranga  dot» 

alaif  l LOOKAHEAD.ONE.CHARACTER  in  DIGITS.TYPE  )  than 
STATE  : *  5  t 

GETNEXTCHARACTERI NEXT.CHARACTER ,  LOOKAHEAD.ONE.CHARACTER  I  ( 

alaa 

ERROR.MESSAGE  t  TOKEN.RECORD . TOKEN.TYPE  )  t 
and  if t 

when  3  *>  if  I LOOKAHEAD.ONE.CHARACTER  in  DIGITS.TYPE  1  than 
STATE  :*  3 4 

GETNEXTCHARACTERI  NEXT  .CHARACTER,  t.OOKAHEAD.ONE .CHARACTER  >  l 
alaif  i ( LOOKAHEAD. ONE .CHARACTER  =  'E’t  or 
I  LOOKAHEAD.ONE.CHARACTER  =  'a')  I  than 
STATE  :  3  4 1 

GETNEXTCHARACTERI NEXT .CHARACTER ,  LOOKAHEAO.ONE .CHARACTER  )  l 
alaif  ( LOOKAHEAD.ONE.CHARACTER  3  I  then 
STATE  :=  St 

GETNEXTCHARACTERI NEXT.CHARACTER,  LOOKAHEAD.ONE.CHARACTER  ) t 
alaif  II LOOKAHEAD.ONE.CHARACTER  not  in  UPPER.CASE .LETTER  )  and 
I LOOKAHEAD.ONE.CHARACTER  not  in  LOWER.CASE .LETTER  )  and 
(LOOKAHEAD.ONE.CHARACTER  /=  '“I  and 
I LOOKAHEAD.ONE.CHARACTER  /=  ,M,I)  than 

DONE  :=  TRUE  t  —  univeraal  real  accepted 

alaa 

ERROR .MESSAGE  I TOKEN.RECORD . TOKEN .TYPE  )  t 
and  if t 

when  4  =>  if  (  (  LOOKAHEAD.ONE.CHARACTER  3  '♦')  or 

I LOOKAHEAD.ONE.CHARACTER  =  *-'))  then 
STATE  :=  bt 

GETNEXTCHARACTERI NEXT.CHARACTER ,  LOOKAHEAD.ONE.CHARACTER  1 1 
alaif  I LOOKAHEAD.ONE.CHARACTER  in  DIGITS.TYPE )  than 
STATE  :*  7» 

GETNEXTCHARACTERI NEXT.CHARACTER ,  LOOKAHEAD.ONE.CHARACTER  )  t 

alaa 

ERROR.MESSAGE I TOKEN.RECORD . TOKEN.TYPE ) l 
and  if » 

whan  5  6  8  9  => 

if  I LOOKAHEAD.ONE.CHARACTER  in  DIGITS.TYPE  )  then 
caaa  STATE  ia 

whan  S  =>  STATE  :=  3t 
whan  6  8  =>  STATE  :=  7t 
when  9  =>  STATE  :=  It 

whan  othera  =>  null t 
end  caaa t 

GETNEXTCHARACTERI NEXT.CHARACTER,  LOOKAHEAD.ONE.CHARACTER ) t 

alaa 

ERROR.MESSAGE ( TOKEN.RECORD . TOKEN.TYPE  )  t 
end  ift 

whan  7  =>  if  I LOOKAHEAD.ONE.CHARACTER  in  DIGITS.TYPE)  then 
STATE  :=  7l 

GETNEXTCHARACTERI  NEXT.CHARACTER,  LOOKAHEAD.ONE.CHARACTER  )  t 
alaif  I LOOKAHEAD.ONE.CHARACTER  =  *_•  )  then 
STATE  :=  8t 

GETNEXTCHARACTERI NEXT.CHARACTER ,  LOOKAHEAD.ONE.CHARACTER  )  l 
alaif  I  I LOOKAHEAD.ONE.CHARACTER  not  in  UPPER.CASE.LETTER )  and 
(LOOKAHEAD.ONE.CHARACTER  not  in  LOWER.CASE.LETTER )  and 
(LOOKAHEAD.ONE.CHARACTER  /=  "’)  and 
(LOOKAHEAD.ONE.CHARACTER  /=  "">)  then 

DONE  :=  TRUE)  —  integer  or  real  in  acientific  notation 
alaa 

ERROR.MESSAGE! TOKEN.RECORD. TOKEN.TYPE ) l 
and  ift 


when  10  12  14  16  =  > 

if  ((LOOKAHEAD.ONE.CHARACTER  in  DIGITS.TYPE)  or 
( LOOKAHEAD.ONE.CHARACTER  in  UPPER.CASE.HEX)  or 
( LOOKAHEAD.ONE.CHARACTER  in  LOWER_CASE_HEX  )  )  then 
case  STATE  is 

when  10  12  =  >  STATE  :»  111 
when  14  16  =>  STATE  :=  15) 
whan  others  *>  nulli 
and  case) 

GETNEXTCHARACTERI NEXT_CHARACTER>  LOOKAHEAD.ONE.CHARACTER  )) 

alsa 

ERROR.MESSAGE ( TOKEN.RECORD . TOKEN.TYPE ) I 
end  if) 

whan  11  s>  if  l < LOOKAHEAD.ONE.CHARACTER  in  OIGITS.TYPE  l  or 

I  LOOKAHEAD .ONE .CHARACTER  in  UPPER.CASE.HEX )  or 
l LOOKAHEAD.ONE.CHARACTER  in  LOWE R.CASE. HEX  ))  than 
STATE  :  =  ill 

GETNEXTCHARACTERI NEXT.CHARACTER .  LOOKAHEAD.ONE.CHARACTER ) ) 
alsif  (LOOKAHEAD.ONE.CHARACTER  a  •.')  than 
STATE  -.a  14  V 

GETNEXTCHARACTERI NEXT.CHARACTER ,  LOOKAHEAD.ONE.CHARACTER  > ) 
alsif  ((LOOKAHEAD.ONE.CHARACTER  =  •*')  or 
(LOOKAHEAD.ONE.CHARACTER  =  ':•))  than 
STATE  : =  13  > 

GETNEXTCHARACTERI NEXT.CHARACTER.  LOOKAHEAD.ONE.CHARACTER  U 
alsif  i LOOKAHEAD.ONE.CHARACTER  s  •_•)  than 
STATE  : =  121 

GETNEXTCHARACTERI NEXT.CHARACTER.  LOOKAHEAD.ONE.CHARACTER  U 

alsa 

ERROR.MESSAGE ( TOKEN.RECORD. TOKEN.TYPE ) ) 
end  if \ 

whan  13  3>  if  ((LOOKAHEAD.ONE.CHARACTER  =  E  ’  >  or 

I LOOKAHEAD.ONE.CHARACTER  *  ’a'))  then 
STATE  :=  17» 

GETNEXTCHARACTERI  NEXT.CHARACTER.  LOOKAHEAD.ONE.CHARACTER  )) 
alsif  ((LOOKAHEAD.ONE.CHARACTER  not  in  UPPER.CASE.LETTER  )  and 
(LOOKAHEAD.ONE.CHARACTER  not  in  LOWER.CASE.LETTER )  and 
( LOOKAHEAD.ONE.CHARACTER  ' ' 1 )  and 
(LOOKAHEAD.ONE.CHARACTER  /*  ’"•))  then 

DONE  : 3  TRUE )  —  based  integer  accepted 

alsa 

ERROR.MESSAGE ( TOKEN.RECORD . TOKEN.TYPE ) > 
end  if i 

whan  15  =>  if  ( ( LOOKAHEAD.ONE.CHARACTER  in  DIGITS.TYPE  )  or 

(LOOKAHEAD.ONE.CHARACTER  in  UPPER.CASE.HEX)  or 
(LOOKAHEAD  ONE  CHARACTER  in  LOWER.CASE.HEX ) )  than 
STATE  :=  15) 

GETNEXTCHARACTERI NEXT.CHARACTER ,  LOOKAHEAD.ONE.CHARACTER  ) ) 
alsif  (LOOKAHEAD.ONE.CHARACTER  =  than 

STATE  :=  16) 

GETNEXTCHARACTERI NEXT.CHARACTER,  LOOKAHEAD.ONE.CHARACTER  ) ) 
alsif  ((LOOKAHEAD.ONE.CHARACTER  =  •#')  or 
( LOOKAHEAD  ONE.CHARACTER  =  ’ : •  )  )  then 
STATE  :=  13) 

GETNEXTCHARACTERI NEXT.CHARACTER,  LOOKAHEAD.ONE.CHARACTER  )  v 

else 

ERROR.MESSAGE ( TOKEN.RECORD . TOKEN.TYPE ) ) 
end  if) 

whan  17  =>  if  (LOOKAHEAD.ONE.CHARACTER  in  DIGITS.TYPE)  than 
STATE  :=  7) 

GETNEXTCHARACTERI  NEXT.CHARACTER ,  LOOKAHEAD.ONE.CHARACTER  ) ) 
alsif  (LOOKAHEAD.ONE.CHARACTER  =  •♦•)  then 
STATE  s=  6) 

GETNEXTCHARACTERI NEXT.CHARACTER ,  LOOKAHEAD.ONE.CHARACTER  ) ) 

else 

ERROR.MESSAGE ( TOKEN.RECORD . TOKEN.TYPE  )  V 
end  if ) 

whan  others  =>  null) 


'.v 
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•nd  loop ) 

•nd  GET_NUMERIC_LIT) 
•nd  NUMERIC) 


TITLE 


AN  ADA  SOFTWARE  METRIC 


—  MOOULE  NAME:  PACKAGE  PARSER.O 

—  DATE  CREATED:  09  OCT  86 

—  LAST  MOOIFIED:  03  OEC  86 

—  AUTHORS:  LCDR  JEFFREY  L.  NIEDER 

LT  KARL  S.  FAIRBANKS,  JR. 

—  DESCRIPTION:  This  package  contains  eight  Functions  that 

—  make  up  the  highest  level  productions  tor  our  top-down,  — 

—  recursive  descant  parser. 

— ♦»*»»*»  X  M  )<»*»»*»«»****»*■»*»»»»»»■»*»»»»»»»»»*****»»»»»»  »»*»»»»**  — 


with  PARSER. 1,  PARSER. 2,  PARSER.3 ,  SYPASS.FUNCTION ,  HALSTEAD.METRIC  . 
GL08AL.PARSER ,  GLOBAL,  TEXT.IO: 

use  PARSER.l,  PARSER.2,  PARSER.3,  SYPASS.FUNCTION,  HALSTEAD.METRIC, 
GLOBAL.PARSER ,  GLOBAL,  TEXT.IO: 


package  PARSER.O  is 

function  COMPILATION  return  boolean: 
function  COMPILATION.'JNIT  return  boolean: 
function  CONTEXT.CLAUSE  return  boolean: 
function  8ASIC.UNIT  return  boolean: 
function  LIBRARY.UNIT  return  boolean: 
function  SECONDARY.JNIT  return  boolean: 
function  LIBRARY.UNIT.BODY  return  boolean: 
function  SUBUNIT  return  oooiaan: 
and  PARSER.O: 


package  body  PARSER.O  is 

—  COMPILATION  — >  tCOMPILATION.UNIT  J* 
function  COMPILATION  return  boolean  is 
begin 

putC'In  compilation  "):  new. line : 
if  ( COMPILATION.UNIT  )  then 

while  (COMPILATION.UNIT)  loop 
null: 
and  loop: 
return  (TRUE): 
else 

return  (FALSE): 
end  if : 

end  COMPILATION: 


—  COMPILATION.UNIT  — >  CONTEXT.CLAUSE  BASIC.UNIT 
function  COMPILATION.UNIT  return  boolean  is 
begin 

if  (CONTEXT.CLAUSE)  then 
if  (BASIC.UNIT)  then 
return  (TRUE): 

else 

return  (FALSE): 
end  if: 

else 

return  (FALSE): 
end  if : 

end  COMPILATION  UNIT: 


—  CONTEXT_CLAUSE  — >  [with  HITH_OR_USE_CLAUSE  [use  NITH_OR_USE_CLAUSE 1*  ]* 
function  CONTEXT_CLAUSE  return  boolean  is 
bag  in 

while  ( BYPASS! TOKEN_WITH  ) )  loop 

if  not  (WITH_OR_USE_CLAUSE  )  then 
SYNTAX_ERROR( "Context  clause"  I* 
end  if* 

while  ( BYPASSJ TOKEN_USE ) )  loop 

if  not  ( WITH_OR_USE_CLAUSE )  then 
SYNTAX_ERROR( "Context  clause" )* 
and  if » 

end  loop *  —  inner  while  loop 

end  loop >  —  outer  while  loop 

return  ( TRUE  )  * 
end  CQNTEXT_CLAUSE  * 


—  BASIC_UNIT  — >  LIBRARY_UNIT 

— >  SECOND ARY_UNIT 
function  BASIC_UNIT  return  boolean  is 
begin 

if  ( LIBRARY_UNIT )  then 
return  (TRUE)* 
elsif  ( SECONOARY_UNIT )  then 
return  (TRUE)* 
else 

return  ( FALSE  )  * 
end  if* 

and  3ASIC_UNIT> 


--  LIBRARYJJNIT  -->  procedure  PROCEDURE_UNIT 
— >  function  FUNCTION_UNIT 
— >  package  PACKAGE_OECLARATION 
— >  generic  GENERIC_DECLARAT10N 
function  LIBRARY_UNIT  return  boolean  is 
begin 

if  ( BYPASS! TOKEN_PROCEOURE  )  1  then 
DECLARE_TYPE  :=  PROCEDURE_OECLARE  * 
if  <PROCEDURE_UNIT)  then 
return  ( TRUE  1 1 

else 

SYNTAX_ERROR( "Library  unit")* 

end  if*  —  if  procedure_unit  statement 

elsif  ( BYPASS( TOKEN_FUNCTION ) )  then 
DECLARE.TYPE  :=  FUNCTXON_DECLARE  * 
if  (  FUNCTIONJJNIT  )  then 
return  (TRUE)* 
else 

SYNTAX_ERROR( "Library  unit")* 

end  if*  —  if  function_unit  statement 

elsif  ( BYPASS! TOKEN_PACKAGE  ) )  then 
DECLARE.TYPE  :=  PACKAGE_DECLARE ) 
if  ( PACKAGE_OECLARATION  )  then 
return  (TRUE)* 
else 

SYNTAX_ERROR(  "Library  unit")* 

end  if*  —  if  package_declaration 

elsif  ( BYPASS! TOKEN.GENERIC  ) )  then 
if  ( GENERIC_DECLARATION )  then 
return  (TRUE)* 

else 

SYNTAX.ERRORI "Library  unit")* 

end  if*  —  if  generic_declaration 

else 

return  ( FALSE ) * 


end  if* 

end  LIBRARY.UNIT * 


—  SECONDARY_UNIT  — >  LIBRARY_UNIT_BODY 
— >  SUBUNIT 

'function  SECOND ARY_UNIT  ratum  boolean  is 
begin 

if  ( LIBRARY_UNIT_BOOY )  then 
return  (TRUE  )( 
els if  (SUBUNIT)  then 
return  ( TRUE  )  * 
else 

return  (FALSE)* 
end  i f * 

end  SECONDARY_UNIT  * 


—  LIBRARY_UNIT_BOOY  — >  procedure  PROCEDURE.UNIT 
— >  function  FUNCTION.UNIT 
— >  package  PACKAGE_DECLARATION 
— >  generic  GENERIC.DECLARATION 
function  LIBRARY_UNIT_BOOY  return  boolean  is 
begin 

if  ( BYPASS! TOKEN_PROCE DURE ))  then 
OECLARE_TYPE  :=  PROCEDURE_QECLARE ) 
if  ( PROCEDURE_UNIT )  then 
return  ( TRUE  )  l 
else 

SYNTAX_ERROR< "Library  unit  body"  )  V 
end  if*  —  if  procedura_unit  statement 

elsif  ( BYPASS) TOKEN_FUNCTION ) )  then 
OEClARE_TYPE  :=  FUNCTION.QECLARE * 
if  (  FUNCTIONJJNIT  )  then 
return  (TRUE)* 
else 

SYNTAX_ERROR< "Library  unit  body")* 
end  if*  --  if  function_unit  statement 

elsif  ( BYPASS! TOKEN_PACKAGE ) )  then 
DECLARE_TYPE  :=  PACKAGE_DECLARE  * 
if  (PACKAGE_DECLARATION)  than 
return  l TRUE)* 
else 

SYNTAX_ERROR< "Library  unit  body")* 
end  if*  —  if  package.declaration 

else 

return  (FALSE)* 

end  if*  —  if  bypass! token_procedure ) 

end  LIBRARY_UNIT_BOOY  * 


—  SUBUNIT  — >  separate  (NAME)  PROPER_BODY 
function  SUBUNIT  return  boolean  is 
begin 

if  ( BYPASS! TOKEN.SEPARATE  ) )  then 

if  ( BYPASS! TOKEN_LE FT_PAREN ) )  then 
if  (NAME)  then 

if  ( BYPASS! TOKEN_RIGHT_P AREN ) )  then 
if  (  PROPER_BOOY  )  then 
return  (TRUE)* 

else 

SYNT AX_E  RROR  (  "Sutxji  it")* 

end  if*  —  if  proper_body  statement 

else 

SYNTAX_ERROR( "Subunit" )> 

end  if*  —  if  bypass! token_r ight_paren ) 
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SYNT  AX_E  RROR ( "Subunit" H 
and  if» 

•Isa 

SYNTAX_ERROR(  "Submit"  )  i 
and  if  t 

•Isa 

ratum  (  FALSE  )  > 
and  if* 
and  SUBUNIT * 


—  if  nama  statamant 
—  if  bypass) tokan_laf t_paran ) 
—  if  bypass) tokan_saparata  ) 


and  PARSE R_0 * 


TITLE : 


AN  ADA  SOFTWARE  METRIC 


—  MODULE  NAME:  PACKAGE  PARSER.l 

—  OATE  CREATED:  17  JUL  86 

—  LAST  MOOIFIEO:  02  DEC  86 

—  AUTHORS:  LCOR  JEFFREY  L.  NIEDER 

LT  KARL  S.  FAIRBANKS,  JR. 

DESCRIPTION:  This  package  contains  thirty-six  functions 

—  that  make  up  the  top  level  productions  for  our  top-down, -- 
recursive  descant  parser.  Each  function  is  preceded 

by  the  grammar  productions  “hey  are  implementing. 


with  PARS£R_2  ,  PARSE3_3.  8YPASS_FUNCTI0N ,  HALSTEAD_METRIC ,  GLOBAL_PARS£R , 
GLOBAL: 

use  PARSER_2,  PARSER_3.  BYPASS.FUNCTION ,  HALSTE AD_METRIC ,  GLOBAL_PARSER , 
GLOBAL  : 

package  PARSER_1  is 

function  G£NERIC_OECLARATION  -aturn  boolean: 
function  G£NERIC_P ARAME TER _ DECLARATION  return  boolean! 
function  GENERIC_-ORMAL_3ART  -aturn  boolean! 
function  PROCEDURE  JJNIT  return  boolean! 
function  SUBPRCGRAM_30QY  return  boolean! 
function  "UNCTION^UNIT  return  ooolean: 

“unction  FUNCTION_ JNIT_"AIL  return  boolean: 
function  FUNCTI0N_3O0Y  return  aootean! 
function  -UNCTION_3O0Y_TAIL  return  boolean! 
function  TASK_QECLARATION  return  boolean! 
function  TASK_300Y  return  boolean: 
function  TASK_BOOY_TAIL  return  boolean! 
function  PACKAGE_OECLARATION  return  boolean! 
function  PACKAGE_UNIT  return  boolean! 
function  PACKAGE_BODY  return  boolean! 
function  PACKAGE_BODY_TAIL  return  boolean! 
function  PACKAGE_TAIL_END  return  boolean: 
function  DECLARATIVE_PART  return  boolean! 
function  BASIC_DECLARATIVE_ITEM  return  boolean: 
function  8ASIC_DECLARATI0N  return  boolean! 
function  LATER_DECLARATIVE_ITEM  return  boolean: 
function  PROPER_BOOY  return  boolean! 
function  SEQUENCE_OF_STATEMENTS  return  boolean: 
function  STATEMENT  return  boolean: 
function  CCMPOUND_STATEMENT  return  boolean: 
function  BLOCK_STATEMENT  return  boolean: 
function  IF_STATEMENT  return  boolean! 
function  CASE_STATEMENT  return  boolean: 
function  C ASE_ST ATE MENT_ ALTERNATIVE  return  boolean! 
function  LOOP_STATEMENT  return  boolean: 
function  EXCEPT I ON_HANDLER  return  boolean! 
function  ACCEPT_STATEMENT  return  boolean! 
function  SELECT_STATEMENT  return  boolean) 
function  SELECT_STATEMENT_TAIL  return  boolean: 
function  SELECT_ALTERNATIVE  return  boolean: 
function  SE LECT_ENTRY_CALL  return  boolean: 

end  PARSER_1) 


package  body  PARSER_1  is 

--  GENERIC_OECLARATION  -->  l GENERIC_PARAMETER_DECLARATION  71 

GENERIC_FORMAL_PART 
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function  GENERIC_DEClARATION  return  boolean  is 
begin 

if  ( GENERIC_PARAMETER_DECLARATION )  then 
null! 
end  if  j 

if  1  GEN£RIC_FORMAL_PART  )  then 
return*  TRUE  )  ) 

else 

return  ( FALSE)) 
end  if) 

end  GENERIC_DECLARATION ) 


—  GENERIC_PARAMETER_OECLARATION  — >  IDENTIFIER.LIST  :  [MODE  ?]  NAME 

t:=  EXPRESSION  ?]  ) 

— >  type  private  t DISCRIMINANT_PART  ?] 
is  PRIVATE_TYPE_DECLARATION  ) 

—>  type  private  [ DISCRIMINANT_PART  ?1 
is  GENERIC_TYPE_DEFINITION  ) 

— >  with  procedure  PROCEDURE_UNIT 
— >  with  function  FUNCTIONJJNIT 
function  GENERIC_PARAMETER_DECLARATION  return  boolean  is 
begin 

if  (IOENTIFIER.LIST  )  then 

if  ( BYPASS! TOKEN.COLON  )  )  then 
if  (MODE)  then 
null  J 

end  if i  —  if  mode  statement 

if  (NAME)  then  —  check  for  type_mark 

if  ( BYPASS! TOKEN.ASSIGNMENT  >  )  then 
if  l EXPRESSION  1  then 
null  i 
else 

SYNTAX_ERROR( "Generic  parameter  declaration" >) 
end  if)  —  if  expression  statement 

end  i f »  —  if  bypass! token_assignment ) 

if  < BYPASS! TOKEN_SEMICOLON ) )  then 
return  (TRUE)} 
else 

SYNTAX_ERROR( "Generic  parameter  declaration”)} 
end  if)  —  if  bypass! token_semicolon ) 

else 

SYNTAX_ERROR( "Generic  parameter  declaration")) 
end  if)  —  if  typo_mark  statement 

else 

SYNTAX_ERROR( "Generic  parameter  declaration")) 
end  if)  --  if  bypass! token_colon ) 

elsif  ( BYPASS! TOKEN_TYPE ) )  then 

if  ( BYPASS! TOKEN_IDENTIFIER  )  )  then 
if  ( DISCRIMINANT_PART )  then 
null) 

end  if)  —  if  discr iminant_part 

if  ( BYPASS! TOKEN_IS  I  )  then 

if  ( PRIVATE_TYPE_DECLARATION )  then 
if  ( BYPASS! TOKEN_SEMICOLON ) )  then 
return  ( TRUE  ) ) 
else 

SYNTAX_ERROR( "Generic  parameter  declaration")) 
end  if)  —  if  bypass! token_semicolon ) 

elsif  ( GENERIC_TYPE_OEFINITION  )  then 
if  ( BYPASS! TOKEN_SEMICOLON  I )  then 
return  (TRUE)) 
else 

SYNTAX_ERROR< "Generic  parameter  declaration”)) 
end  if)  —  if  bypass! token_semicolon ) 

else 

SYNTAX_ERROR( "Generic  parameter  declaration")) 
end  if)  —  if  private_type_deolaration 


•Isa 

SYNTAX_ERROR( "Generic  parameter  declaration")} 
and  if>  --  if  bypass! tokan_is  ) 

•Isa 

SYNTAX_ERROR( "Ganaric  parameter  daclaration" ) ) 
and  if}  —  if  bypass! token_identif iar ) 

•Is if  <  BYPASS!  TOKENJfITH  ) )  than 

if  < BYPASS! TOKEN_PROCEDURE > >  than 
OECLARE_TYPE  :=  PROCEDURE.DECLARE } 
if  ! PROCEOURE.UNIT  )  than 
raturn  ( TRUE  ) } 

•Isa 

SYNTAX_ERROR( "Ganaric  paramatar  daclaration"  ) } 
and  if}  —  if  procedura.unit  statamant 

aisif  ( BYPASS! TOKEN_FUNCTION  ))  than 
DECLARE.TYPE  :=  FUNCTXON_OECLARE } 
if  (  FUNCTIONJJNIT  )  than 
return  (TRUE)} 
alsa 

SYNTAX_ERROR( "Generic  paramatar  declaration")} 
and  if}  —  if  funct ion_uni t  statamant 

alsa 

SYNTAX_ERROR( "Ganaric  paramatar  daclaration"  ) } 
and  if}  —  if  bypass! tokan_procadura  ) 

alsa 

raturn  (FALSE)} 

end  if}  —  if  identifier  list 

and  GENERIC_P ARAMETER_OECLARATION } 


—  GENERIC_FORMAL_PART  — >  procedure  PROCE0URE_UNIT 

— >  function  FUNCTION_UNIT 
— >  package  PACKAGE_OECLARATION 
function  GENERIC_FORMAL_PART  return  boolean  is 
begin 

if  ( BYPASS! TOKEN_PROCEDURE ) )  then 
OECLARE_TYPE  :=  PROCEOURE_DECLARE ) 
if  (  PROCEDURE_UNIT  )  than 
return  I  TRUE  ) } 

alsa 

SYNTAX_ERROR! "Generic  formal  part")} 
and  if}  —  if  procecfcjre_init  statamant 

aisif  I  BYPASS! TOKEN_ FUNCTION  )  )  then 
OECLARE_TYPE  :=  FUNCTION_DECLARE } 
if  ( FUNCT IONJJNIT )  than 
raturn  ( TRUE  ) } 
else 

SYNTAX_ERROR( "Generic  formal  part")} 
end  if)  —  if  function  uiit  statement 

aisif  ( BYPASS! TOKEN_PACKAGE ) )  then 
DECLARE.TYPE  :=  PACKAGE_DECLARE ) 
if  ( PACKAGE_DECLARATION )  than 
raturn  (TRUE)} 
alsa 

SYNTAX_ERROR( "Generic  formal  part")) 
and  if)  —  if  package_declaration 

alsa 

return  ( FALSE  ) ) 
end  if) 

end  GENERIC_FORMAL_PART) 


—  PROCEOURE_UNIT  — >  identifier  [ FORMAL_PART  ?)  is  SUBPROGRAM_BODY 
-->  identifier  IFORMAL.PART  ?)  ) 

— >  identifier  IF0RMAL_PART  ?)  renames  NAME  ) 
function  PROCEOURE_UNIT  raturn  boolean  is 
begin 
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DECLARATION  :=  TRUE ! 

if  ( BYPASS! TOKEN.IOENTIFIER))  than 
SCOPE_LEVEL  :«  SCOPE_LEVEL  ♦  l! 
if  ( FORMAL_PART  )  than 
null) 

and  if!  —  if  formal  part  statamant 

if  ( BYPASS! TOKEN_IS ) )  then 
if  ( SUBPROGRAM_BOOY  )  than 

SCOPE_LEVEL  :=  SCOPE_LEVEL  -  lv 

return  ( TRUE  ) ! 
alsa 

SYNTAX_ERROR! "Procedure  unit")! 

and  if>  —  if  subprogram  body  statement 

alsif  ( BYPASS! TOKEN_SEMICOLON  ))  than 
SCOPE_LEVEL  :=  SCOPE_l£VEL  -  li 
return  ( TRUE  )  ! 

alsif  ( BYPASS! TOKEN.RENAMES  II  than 
if  (NAME  )  than 

if  l BYPASS! TOKEN_SEMICOLON  ))  than 
SCOPE.LEVEL  :=  SCOPE.LEVEL  -  l! 
return  ! TRUE  )  ! 

alsa 

SYNTAX.ERROR! "Procedure  unit"  )  ! 

and  if!  —  if  bypass! token_ semicolon  ) 

alsa 

SYNTAX_ERROR( "Procedure  unit")! 
and  if!  —  if  name  statement 

end  ifi  —  if  bypass! token_is  ) 

else 

return  ( FALSE  li 

and  if!  --  if  bypass! toKen_identif iar  ) 

and  PROCEDURE _UNITt 


—  SUBPROGRAM_BOOY  — >  new  NAME  t GENERIC_ACTUAL_PART  ?]  l 
--  -->  separata  ! 

—  >  <>  ! 

— >  t  OECLARATIVE_PART  ?]  begin  SEQUENCE_OF_STATEMENTS 

texception  [EXCEPTION_HANDLER]+  ?]  and  [DESIGNATOR  ?1  ! 
— >  NAME  ! 

function  SUBPROGRAM_BOOY  return  boolean  is 
begin 

DECLARATION  :*  TRUE! 
if  < BYPASS! TOKEN_NEH  )) then 
if  (NAME)  then 

if  ( GENE RIC_ACTUAL_P ART)  than 
null) 

and  if!  —  if  generic  actual  part 

if  ( BYPASS! TOKEN.SEMICOLON  ) )  then 
return  (TRUE)! 

else 

SYNTAX_ERROR( "Subprogram  body")! 

end  if!  —  if  bypass! token_semicolon ) 

else 

SYNT AX_E RROR ( "Subprogram  body"  ) ! 
end  if! 

alsif  I  BYPASS! TOKEN.SEPARATE ) )  then 
if  ( BYPASS! TOKEN.SEMICOLON  ) )  than 
return  ( TRUE  ) ! 

alsa 

SYNT AX.ERROR! "Subprogram  body")! 
end  if ! 

alsif  I  BYPASS! TOKEN.BRACKETS ) )  then 
if  I  BYPASS! TOKEN_SEMICOLON ) )  then 
return  (TRUE)l 

alsa 

SYNT AX_ERROR( "Subprogram  body")! 
end  if ! 


—  if  name  statement 


—  if  bypass! toKen_sem i colon ) 


—  if  bypass! token_semicolon ) 
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>  •* 


elsif  ( DECLARATIVE.PART )  than 
if  ( BYPASS) TOKEN.BEGIN ))  than 
DECLARATION  :»  FALSE ) 
if  ( SEQUENCE_OF_STATEMENTS )  then 
if  ( BYPASS! TOKEN_EXCEPTION) )  then 
if  (EXCEPTION.HANDLER )  than 

while  ( EXCEPTION_HANOLER  )  loop 
null) 
and  loop) 
else 

SYNTAX.ERROR! "Subprogram  body"  ) ) 

and  if)  —  if  except ion_handler  statement 

end  if)  —  if  bypass! toKen_except ion  I 

if  ( BYPASS! TOKEN.SNO  1)  then 
if  (DESIGNATOR)  then 
null) 

end  if)  —  if  designator  statement 

if  I  BYPASS! TOKEN.SEMICOLON ) )  then 
DECLARATION  :*  TRUE) 
return  l TRUE)) 

else 

SYNTAX_ERROR( "Subprogram  body")) 
end  if)  —  if  bypass! token_semicolon ) 

else 

SYNTAX_ERROR( "Subprogram  body" )) 
end  if)  --  if  bypass l toKen_end  ) 

else 

SYNTAX_ERROR( "Subprogram  body")) 

end  if)  —  if  sequence  of  statements 

else 

3YNTAX_SRR0R( "Subprogram  body")) 
and  if)  —  if  bypass! token_begin ) 

elsif  ( BYPASS! TOKEN_BEGIN ) I  then 
DECLARATION  :=  FALSE ) 
if  ( SEOUENCE_OF_STATEMENTS  I  then 

if  l BYPASS! TOKEN_EXCEPTION  )  )  then 
if  t  EXCEPTION_HANDLER )  then 

while  ( EXCEPTION_HANDLER )  loop 
null) 
and  loop) 
else 

SYNTAX_ERROR( "Subprogram  body")) 

and  if)  —  if  except ion_handler  statement 

end  if)  —  if  bypass! token_except ion ) 

if  ( BYPASS! TOKEN_END))  then 
if  (DESIGNATOR)  then 
null) 

end  if)  —  if  designator  statement 

if  ( BYPASS! TOKEN_SEMICOLON ) )  then 
DECLARATION  :=  TRUE) 
return  (TRUE)) 
else 

SYNTAX_ERROR( "Subprogram  body")) 
end  if)  —  if  bypass! toKen_semicolon ) 

else 

SYNT AX_E RROR (  "S»i3program  body"  ) ) 


end  if) 

else 

SYNTAX_ERROR( "Subprogram  body" ) ) 
end  if) 

elsif  (NAME)  then 

if  ( BYPASS! TOKEN.SEMICOLON  ) )  then 
return  ( TRUE  ) ) 

else 

SYNT AX_E RROR ( "Subprogram  body"  ) ) 
end  if) 

else 

return  ( FALSE ) ) 
and  if) 


if  bypass! token_end ) 


—  if  sequence  of  statements 


--  if  bypass! toKen_semicolon) 


—  if  bypass! token_r>ew) 


•,*•*,«**-  .  *  *  *  1 


and  SUBPROGRAM. BODY) 


—  FUNCTION.UNIT  — >  DESIGNATOR  FUNCTION.UNIT.TAIL 
function  FUNCTION.UNIT  r«tum  boolean  is 
begin 

DECLARATION  :=  TRUE  ) 
if  (DESIGNATOR)  than 

SCOPE.LEVEL  :=  SCOPE.LEVEL  ♦  1) 
if  (FUNCTION.UNIT.TAIL)  than 

SCOPE.LEVEL  :=  SCOPE.LEVEL  -  1) 
pa turn  ( TRUE  )  } 
alsa 

SYNTAX.ERRORI "Function  unit")} 
and  if} 

alsa 

return  (FALSE)} 
and  if} 

and  FUNCTION.UNIT} 


—  FUNCTION.UNIT.TAIL  — >  is  new  NAME  t  GENERIC.ACTUAL.PART  ?]  } 

— >  [ FORMAL.PART  ?]  return  NAME  FUNCTION.BODY 

function  FUNCTION.UNIT.TAIL  return  boolean  is 
begin 

if  l BYPASS( TOKEN.IS  )  I  than 

if  I  BYPASS! TOKEN.NEW  ) )  than 
if  (NAME)  then 

if  (GENERIC.ACTUAL.PART)  than 
null } 

and  if}  —  if  generic  actual  part 

if  ( BYPASS! TOKEN.SEMICOLON  )  )  than 
return  ( TRUE  ) } 

alsa 

SYNTAX.ERROHI "Function  unit  tail")) 
and  if)  —  if  bypassl toKan.semicolon ) 

else 

SYNTAX.ERRORI  "Function  unit  tail’*)) 
and  if)  —  if  name  statement 

alsa 

SYNTAX.ERRORI "Function  unit  tail")) 
and  if)  —  if  bypassl token.new ) 

elsif  (FORMAL.PART)  than 

if  ( BYPASS! TOKEN.RETURN  )  )  then 

if  (NAME)  than  —  check  for  typa.mark 

if  (FUNCTION.BODY)  than 
return  ( TRUE  ) ) 
alsa 

SYNTAX.ERRORI "Function  unit  tail")) 
and  if)  —  if  function  body  statement 

alsa 

SYNTAX.ERRORI "Function  unit  tail")) 
and  if)  —  if  type  mark  statement 

else 

SYNTAX.ERRORI  "Function  unit  tail")) 
and  if)  —  if  bypassl token  return) 

elsif  I  BYPASS! TOKEN.RETURN ) )  than 

if  (NAME)  than  —  check  for  typa.mark 

if  I FUNCTION.BODY  )  then 
return  I  TRUE  ) ) 
alsa 

SYNTAX.ERRORI "Function  unit  tail")) 
and  if)  —  if  function  body  statement 

alsa 

SYNTAX.ERRORI "Function  unit  tail")) 
and  if)  --  if  type  mark  statement 


if  bypass! token_is ) 


return  ( FALSE  )  t 
and  if  * 

and  FUNCTION_UNIT_TAIL  * 


—  FUNCTION_BODY  — >  is  ( FUNCTION_BODY_TAIL  ?] 
—  >  * 

function  FUNCTION_BODY  return  boolean  is 
begin 

if  ( BYPASS( TOKEN_IS I)  than 

if  C  FUNCTION  BOOY_TAIL  )  than 
null* 
and  if * 

patum  ( TRUE  ) * 

alsif  ( BYPASS! TOKEN^SEMICOLON ) 1  than 
ra turn  (TRUE)* 

alsa 

ratum  (FALSE)* 
and  if* 

and  FUNCTION_BOOY  * 


—  FUNCTION_BCOY_TAIL  — >  saparata  * 

—  >  <>  * 

— >  SUBPROG RAM_BCDY 
— >  NAME  * 

function  FUNCTION_BOOY_TAIL  patupn  boolean  is 
bagin 

if  ( BYPASSI TOKEN_SEPARATE ) t  than 

if  ( BYPASSI  TOKEN.SEMICOLONH  than 
patupn  ( TRUE  )  * 

alsa 

SYNTAX_ERROR( "Function  body  tail")* 
and  if*  —  if  bypass! token_semicolon ) 

alsif  ( BYPASSI TOKEN_BRACKETS  ) )  than 
if  ( BYPASSI TOKEN_SEMICOLON ))  than 
patupn  (TRUE)* 
alsa 

SYNTAX_ERROR I "Function  body  tail")* 
and  if*  —  if  bypass! tokan_samicolon ) 

alsif  I SUBPROGRAM_BODY )  than 
patum  I  TRUE  )  * 
alsif  (NAME)  than 

if  ( BYPASSI TOKEN_SEMICOLON  ) )  than 
paturn  ( TRUE  )  * 
alsa 

SYNTAX_ERROR( "Function  body  tail")* 
and  if*  —  if  bypass! tokan  semicolon) 

alsa 

return  ( FALSE  )  * 

and  if*  —  if  bypass! token_ separate  ) 

and  FUNCTION_BODY_TAIL  * 


—  TASK_OECLARATION  -->  body  T ASK_BOOY  » 

— >  [ type  ?1  identifier  [is  [ ENTRY_DECLARATION )» 

[ REPRESENTATION_CLAUSE  1*  end  [identifier  ?]  ?J  * 
function  TASK_OECLARATION  return  boolean  is 
bag  in 

DECLARATION  :=  TRUE* 
if  ( BYPASS! TOKEN_TYPE ) )  then 
null* 

and  if*  —  if  bypass! token  type) 

if  ( BYPASS! TOKEN.BOOY ) )  than 
if  ITASK.BOOY)  then 

if  ( BYPASS! TOKEN_SEMICOLON  ))  then 
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return  ( TRUE  ) ) 

•  Isa 

SYNTAX_ERROR( "Task  declaration")) 
and  ifl 

•  Isa 

SYNTAX_ERROR( "Task  declaration"  )  ) 
and  if)  —  if  task_body  statement 

•Xsif  < BYPASS! TOKEN.IDENTI FIERI)  than 
SCOPE_LEVEL  :=  SCOPE_LEVEL  ♦  1) 
if  ( BYPASS! TOKEN_IS I  I  than 

while  (ENTRYJJECLARATION)  loop 
null) 
and  loop) 

while  ( REPRESENT ATION_CLAUSE  I  loop 
null ) 
and  loop ) 


if  . BYPASS! TOKEN_ENO II  than 

if  i BYPASS! TOKEN_IDENTIFIER I  I  than 
null ) 

and  if)  --  if  bypass! tokan_identif iar ) 

if  l BYPASS! TOKEN_SEMICOLON II  than 
SCOPE_LEVE L  :*  SCOPE.LEVEL  -  1) 
raturn  ( TRUE  I ) 
alsa 

SYNTAX_ERROR( "TasK  dac lara t ion"  I) 
and  if)  —  if  bypass! tokan_samicolon  i 

alsa 

SYNTAX_ERROR( "TasK  daclaration"  l) 
and  if)  —  if  bypass! tokan_and  I 

alsif  i  BYPASS!  TOKEN_S£MICOLON  )  I  than 
3C0PE_LEVEL  :*  SCOPE  _lEVEL  -  1) 
raturn  ■ 'RUE  i 
alsa 

SYNTAX_cRROR( “TasK  declaration "  I ) 
and  if)  --  if  bypass! tokan_is  I 

alsa 

raturn  ( FALSE  I  > 

and  if)  —  if  bypass! token_body  I 

and  TASK_OECLARATION) 


—  TASK_BODY  — >  identifier  is  TASK_BOOY_TAIL 
function  TASK_BODY  raturn  boolean  is 
begin 

if  ( BYPASS! TOKEN_IOENTIFIER  )  I  than 
SCOPE_LEVEL  :=  SCOPE_LEVEL  ♦  1) 
if  ( BYPASS! TOKEN_IS I)  than 
if  (  T ASK_BODY_T AI L  I  than 

SCOPE.LEVEL  :=  SCOPE_LEVEL  -  1) 
raturn  ( TRUE  I ) 
alsa 

SYNT AX_E RROR ( "Task  body"  I ) 

and  if)  —  if  task_body_tail  statement 

alsa 

SYNT AX_ERROR< "Task  body")) 

and  if)  —  if  bypass! tokan_is  ) 

alsa 

return  (FALSE)) 

end  if)  —  if  bypass! token_identif iar ) 

and  T  ASK_BOOY ) 


—  T  ASk_BOOY_T  AIL  — >  separata 

— >  ( DECLARATIVE_PART  ?1  begin  SEQUENCE_OF_STATEHENTS 

(exception  I EXCEPTION_HANOLER  1*  ?)  end  (identifier  ?) 
function  TASK  BOOY  TAIL  raturn  boolean  is 


DECLARATION  :=  TRUE* 
if  ( BYPASS! TOKEN_SEPARATE  ) )  than 
return  ( TRUE  )  v 

elsif  (DECLARATIVE.PART)  than 
if  ) BYPASS) TOKEN_BEGIN))  than 
DECLARATION  :  =  FALSE) 
if  (  SE<3UENCE_OF_STATEMENTS  )  than 

if  ( BYPASS) TOKEN_EXCEPTION ) )  than 
if  ( EXCEPTION_HANOLER )  than 

while  (EXCEPTION.HANDLER)  loop 
null) 
end  loop) 
else 

SYNTAX_ER90RI “Task  body  tail”)) 

and  if)  —  if  except ion_handler  statement 

and  if)  —  if  bypass) tokan_exception I 

if  ( BYPASS) TOKEN.END  I  )  than 

if  ( BYPASS) TOKEN.IOENTIFIER )  I  than 
null ) 

and  if)  —  if  bypass) token_identif ier t 

DECLARATION  : *  TRUE) 
return  ( TRUE  I ) 

alsa 

SYNTAX_ERROR< "Task  body  tail")) 
end  if)  —  if  bypass) tokan_end ) 

alsa 

SYNTAX_ERROR( "Task  body  tail”!) 

end  if)  —  if  saquance_of_statements 

alsa 

SYNTAX.ERRORC'Task  body  tail”  1 ) 
end  if)  —  if  bypass) tokan.beg in ) 

alsif  l BYPASS) TOKEN .BEGIN  l  I  then 
DECLARATION  :s  FALSE) 
if  l SEGUENCE.OF.STATEMENTS )  than 

if  (BYPASS) TOKEN. EXCEPTION! I  then 
if  ( EXCEPTION.HANDLER I  than 

while  (EXCEPTION_HANDLER)  loop 
null) 
and  loop) 
alsa 

SYNTAX_ERRORl "Task  body  tail”)) 

and  if)  —  if  except ion_handler  statement 

and  if)  —  if  bypass) tokan_axcaption  ) 

if  I  BYPASS) TOKEN.END n  than 

if  ( BYPASS) TOKEN_IOENTIFIER)I  then 
null ) 

and  if)  —  if  bypass) token_identif ier  ) 

DECLARATION  :=  TP'JE ) 
return  (TRUE!) 

alsa 

SYNTAX.ERROR) "Task  body  tail")) 
and  if)  —  if  bypass) token_ and ) 

else 

SYNTAX_ERROR( "Task  body  tail")) 

and  if)  —  if  sequence_of_statements 

alsa 

return  (FALSE)) 

and  if)  —  if  bypass) token_separate ) 

and  T ASK_BOOY_T AIL) 


—  PACKAGE.DECLARATION  — >  body  PACKAGE.BODY 

-->  identifier  PACKAGE_UNIT 
Kr»ction  PACKAGE_DECLARATION  return  boolean  is 
begin 

DECLARATION  :=  TRUE) 
if  ( BYPASS) TOKEN.BOOY ) I  than 
if  (PACKAGE  BODY)  then 


% 


> 


return  ( TRUE  )  * 

•  Isa 

SYNTAX_ERROR! "Package  declaration"  )* 
and  if*  —  if  package  unit  statement 

elsif  ( BYPASS*  TOKEN_IDENTIFI£R  ) )  then 
SCOPE_LEVEL  :=  SCOPE.LEVEL  +  1* 
if  < PACKAGE .UNIT  )  then 

SCOPE_LEVEL  :=  SCOPE_LEVEL  -  1* 
return  ! TRUE  )  ) 
else 

SYNTAX_ERRORl "Package  declaration"  )  * 
end  if »  —  if  package_unit_tail  statement 

else 

return  l FALSE  )  * 

end  if*  —  if  bypass! token_packaga  ) 

end  PACKAGE_DECLARATION * 


--  PACKAGE.BOOY  — >  identifier  is  PACKAGE_BODY_TAIL 
function  PACKAGE_BO0Y  return  boolean  is 
begin 

if  (  BYPASS!  TOKEN.IOENTIFIER)  I  then 
SCOPE_LEVEL  :=  SCOPE_LEVEL  ♦  1* 
if  ( BYPASS! TOKEN.IS  ))  then 

if  <PACKAGE_30DY_TAIL)  than 

SCOPE.LEVEL  :=  SCOPE.LEVEL  -  1* 
return  ( TRUE  )  * 
else 

SYNTAX_ERRORl  "Package  body"  ) * 

end  if*  —  if  packaga_body_tail  statement 

else 

SYNTAX.ERROR! "Package  body" ) * 

end  if*  —  if  bypass! token_is  I 

else 

return  (FALSE)* 

end  if*  —  if  bypass! token_identif ier  ) 

end  PACKAGE _BOOY * 


—  P ACKAGE_BOD Y_T AIL  — >  separate  * 

— >  I OECLARATIVE_PART  ?J  [begin  SEGUE NCE_OF_STATEME NTS 
[exception  [EXCEPTION.HANDLERI*  ?1  ?1 
end  [identifier  ?]  * 

function  PACKAGE_BOOY_TAIL  return  boolean  is 
begin 

DECLARATION  :=  TRUE* 

if  ( BYPASS! TOKEN_SEPARATE ))  then 

if  ( BYPASS! TOKEN_SEM1COLON n  then 
return  ( TRUE  )  * 

else 

SYNTAX_ERROR( "Package  body  tail")* 
end  if*  —  if  bypass! token. semicolon ) 

elsif  ( OECLARATIVE_PART  )  then 
DECLARATION  :=  FALSE* 
if  ( BYPASS! TOKEN.BEGIN ))  then 

if  ( SEQUENCE_OF_STATEMENTS )  then 

if  ( BYPASS! TOKEN.EXCEPTION  )  )  then 
if  ( EXCEPTION_HANDLER  )  then 

while  1 EXCEPTION_HANDLER )  loop 
null* 


end  loop  * 

else 

SYNTAX.ERROR! "Package  body  tail")* 
end  if*  —  if  except ion.handler  statement 

end  if*  —  if  bypass! token_except ion ) 

if  ! BYPASS! TOKEN.END))  then 

if  ( BYPASS! TOKEN.IOENTIFIER  ) )  then 
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null  i 

end  if)  —  if  bypass! token.identif ier ) 

if  ( BYPASS! TOKEN.SEMICOLON ) )  than 
DECLARATION  TRUE  ) 
ratum  ( TRUE  )  ) 

alsa 

SYNTAX.ERROR! "Package  body  tail")* 
and  if)  —  if  bypass! tokan_sanicolon ) 

alsa 

SYNTAX.ERROR! "Package  body  tail")) 
and  if)  —  if  bypass! token_end) 

alsa 

SYNTAX.ERROR! "Package  body  tail")) 
and  if)  —  if  sequenee_of_statements 

els  if  ( BYPASS! TOKEN.ENO  )  )  than 

if  ( BYPASS! TOKEN.IDENTIFIER  ) )  then 
null ) 

and  if)  —  if  bypass! token.identif ier ) 

if  ( BYPASS! TOKEN_SEMICOLON  )  )  than 
DECLARATION  :=  TRUE) 
return  ( TRUE  ) ) 

alsa 

SYNTAX.ERROR! "Package  body  tail")) 
and  if)  —  if  bypass! tokan_ semicolon ) 

else 

SYNTAX.ERROR!  "Package  body  tail")) 
and  if)  --  if  bypass! token_begin ) 

alsif  < BYPASS! TOKEN.BEGIN))  than 
DECLARATION  :=  FALSE) 
if  (  SEGUENCE_OF_STAT£MENTS  )  than 

if  I  BYPASS! T0KEN_EXCEPTI0N)1  than 
if  ( EXCEPTION.HANOLER  )  then 

while  ( EXCEPTION.HANDLER  )  loop 
null) 
and  loop) 
else 

SYNTAX_ERROR( "Package  body  tail")) 
end  if)  —  if  except ion.handler  statement 

and  if)  —  if  bypass! tokan_axcept ion) 

if  1  BYPASS! TOKEN_ENO))  then 

if  ( BYPASS! TOKEN.IDENTIFIER))  than 
null) 

and  if)  —  if  bypass! token_ identifier ) 

if  ( BYPASS!  TOKEN.SEMICOLON))  than 
DECLARATION  :=  TRUE) 
return  (TRUE)) 

alsa 

SYNTAX_ERROR( "Package  body  tail")) 
and  if)  —  if  bypass! token_semicolon ) 

else 

SYNTAX_ERROR( "Package  body  tail")) 
end  if)  —  if  bypass! token_end) 

alsa 

SYNTAX_ERROR! "Package  body  tail")) 
and  if)  —  if  sequence_of_statements 

alsif  t BYPASS! TOKEN.END ) )  than 

if  ( BYPASS! TOkEN_IDENTIFIER ) )  then 
null) 

and  if)  —  if  bypass! token. identifier ) 

if  ( BYPASS! TOKEN.SEMICOLON >)  than 
return  (TRUE)) 

alsa 

SYNTAX.ERROR!  "Package  body  tail")) 
and  if)  —  if  bypass! token.semicolon) 

else 

return  (FALSE)) 
end  if) 

and  P ACKAGE_BOOY_T AIL) 


--  if  bypass! token.separate ) 


—  PACKAGE_UNIT  — >  is  P ACKAGE_T AI L_END 

—  — >  renames  NAME  ! 
function  PACKAG£_UNIT  return  boolean  is 
begin 

if  ( BYPASS! TOKEN_IS ) )  then 
if  (P ACKAGE_TAIL_END )  then 
return  ( TRUE  )  * 

else 

SYNTAX_ERROR( "Package  unit"  )  l 
end  if! 

elsif  < BYPASS! TOKEN.RENAMES ) )  then 
if  ! NAME  )  then 

if  l BYPASS! TOKEN.SEMICOLON ) )  then 
return  ( TRUE  !  i 
else 

3YNTAX_ERR0R< "Package  unit")! 

end  if>  —  if  bypass! token_semicolon ) 

else 

SYNTAX_ERROR( "Package  unit"  ) ! 
end  if!  —  if  name  statement 

else 

return  ( FALSE  ) ! 

end  if!  —  if  bypass l token  is) 

end  PACKAGE_UNIT  > 


—  PACKAGE _TAIL_SNO  ~>  new  NAME  (GENERIC. ACTUAL_PART  ?]  ! 

—  >  ( BASIC_3ECLARATIVE_ITEM  J*  (private 

(BASIC_OECLARATIVE_ITEM)*  ?]  and  (identifier  ?)  ! 
^unction  PACKAGE_TAIL_ENO  return  boolean  is 
begin 

if  ( BYPASS! T0KEN_NEW)1  then 
if  (NAME)  then 

if  ( GENERIC_ACTUAL_PART )  then 
null ! 

end  if!  —  if  generic_actual_part  statement 

if  ( BYPASS! TOKEN_SEMICOLON ) )  then 
return  ( TRUE  ) ! 
else 

SYNTAX_ERROR( "Package  tail  end")! 
end  if!  —  if  bypass! token_semicolon ) 

else 

SYNTAX_ERROR( "Package  tail  end")! 
end  if!  —  if  name  statement 

elsif  ( BASIC_DECLARATIVE_ITEM  )  then 
while  ( BASIC_DECLARATIVE_ITEM  )  loop 
null ! 
end  loop! 

if  ( BYPASS! TOKEN_PRIVATE ))  then 

while  ( BASIC_OECLARATIVE_ITEM  )  loop 
null  i 
end  loop! 

end  if!  —  if  bypass! token_private  ) 

if  I  BYPASS! TOKEN_END  ) )  then 

if  ( BYPASS! TOKEN.IDENTIFIER  ) )  then 
null! 
end  if ! 

if  ( BYPASS! TOKEN_SEMICOLON )  )  then 
return  ( TRUE  ) ! 

else 

SYNTAX_ERROR( "Package  tail  end")! 
end  if!  —  if  bypass! token_semicolon ) 

else 

SYNTAX_ERROR( "Package  tail  end")! 
end  if* 

elsif  ( BYPASS! TOKEN_PRIVATE ) )  then 


if  bypass! token_end ) 


while  ( BASIC.OECLARATIVE.ITEM  )  loop 
null! 
and  loop  ) 

if  1  BYPASS! TOKEN.ENO  )  >  than 

if  ( BYPASS! TOKEN_IDENTIFIER>>  than 
null! 
and  if! 

if  ! BYPASS! TOKEN.SEMICOLON ) )  than 
ratum  ( TRUE  )  i 

alsa 

SYNTAX.ERRORI "Package  tail  and" U 
and  if!  --  if  bypass! token.semicolon ) 

alsa 

SYNTAX.ERRORI "PacKaga  tail  and")! 
and  if!  --  if  bypass! token. end  ) 

alsif  i BYPASS! TOKEN.ENO  •  I  *hen 

if  I  BYPASS! TOKEN.IDENTIFIER)  I  than 
null  1 
and  if ! 

if  l BYPASS! TOKEN.SEMICOLON  )  I  than 
ratum  (TRUE)! 

alsa 

SYNTAX.ERRORI "PacKaga  tail  and")! 
end  if!  —  if  bypass! token.semicolon ) 

alsa 

return  (FALSE)! 

end  if)  —  if  bypass! token.new  I 

end  P  ACK AGE  _T AI L_ENO ! 


—  BASIC.OECLARATIVE.ITEM  -->  BASIC _DECLARATIVE 

— >  REPRESENT ATION.SLAUSE 
-->  use  WITH.OR.USE .CLAUSE 
function  BASIC_OECLARATIVE_ITEM  return  boolean  is 
begin 

if  ( BASIC.OECLARATION )  than 
return  l TRUE)! 

alsif  < REPRESENT ATION_CLAUSE  )  then 
ratum  ( TRUE  ) ! 

alsif  < BYPASS! TOKEN.USE  ))  then 
if  (HITH_OR_USE_CLAUSE )  then 
ratum  (  TRUE  ) ! 

else 

SYNTAX.ERRORI "Basic  declarative  item")! 
end  if! 
alsa 

return  ( FALSE  ) ! 
end  if! 

and  BASIC_OECLARATIVE_ITEM ! 


--  DECLARATIVE.PART  -->  l BASIC.OECLARATIVE.ITEM  ]*  [ LATER.DECLARATIVE.ITEM  ]» 
function  DECLARATIVE.PART  return  boolean  is 
begin 

while  ( BASIC.OECLARATIVE.ITEM  I  loop 
null! 
and  loop! 

while  ( LATER.DECLARATIVE.ITEM)  loop 
null ! 
and  loop! 
return  ( TRUE  ) ! 
and  DECLARATIVE.PART! 


--  BASIC.OECLARATION  -->  type  TYPE .DECLARATION 

— >  subtype  SUBTYPE .DECLARATION 
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— >  procedure  PROCEDURE.UNIT 
— >  function  FUNCTION.UNIT 
— >  package  PACKAGE .DECLARATION 
— >  generic  GENERIC.DECLARATION 
— >  IDENTIFIER.OECLARATION 
— >  task  TASK.OECLARATION 
function  BASIC.DECLARATION  return  boolean  is 
begin 

if  ( BYPASS! TOKEN.TYPE  ))  then 
if  (TYPE.OECLARATION)  then 
return  ( TRUE  )  * 

else 

SYNTAX.ERROR! "Basic  declaration" )* 
end  if  * 

els  if  ' BYPASS! 70KEN.SUBTYPE  )>  then 
if  (  SUBTYPE.OECLARATION  )  then 
return  l TRUE t * 

else 

SYNTAX_ERROR( "Sasic  declaration"  )  * 
end  if i 

elsif  ( BYPASS! TOKEN.PROCEDURE  1  1  then 
DECLARE.TYPE  :=  PROCEDURE.DECLARE t 
if  (PROCEDURE.UNIT)  then 
return  (TRUE)* 

else 

SYNTAX. ERROR I "Basic  declaration"  )* 
end  i f  v  —  if  procedure.unit  statement 

elsif  ( BYPASS! TOKEN.FUNCTION  )  1  then 
DECLARE.TYPE  : =  FUNCT10N.DECLARE * 
if  ( FUNCTION.UNIT I  then 
return  ( TRUE  J * 
else 

SYNTAX.ERROR! "Basic  declaration"  )* 
end  i f »  --  if  function.uni t  statement 

elsif  1 8YPASS! TOKEN.PACKAGE  )  )  then 
DECLARE.TYPE  :=  PACKAGE.OECLARE * 
if  (PACKAGE.DECLARATION)  then 
return  (TRUE)* 
else 

SYNTAX.ERROR! "Basic  declaration")* 
end  if*  —  if  package.declaration 

elsif  ( BYPASS! TOKEN.GENERIC  I)  then 
if  ( GENERIC.DECLARATION )  then 
return  (TRUE)* 
else 

SYNTAX.ERROR! "Basic  declaration")* 
end  if*  —  if  gener ic.declaration 

elsif  ( IDENTIFIER.DECLARATION )  then 
return  (TRUE)* 

elsif  ( BYPASS! TOKEN.T ASK ) )  then 
DECLARE.TYPE  :=  TASK.OECLARE l 
if  I TASK.DECLARATION )  then 
return  (TRUE)* 

else 

SYNTAX.ERROR! "Basic  declaration"  ) * 
end  if t 
else 

return  (FALSE)* 
end  if  * 

end  BASIC.DECLARATION* 


--  LATER.DECLARATIVE.ITEM  — >  PROPER.BODY 

— >  generic  GENERIC.DECLARATION 
-->  use  WITH.OR.USE.CLAUSE 
function  LATER.DECLARATIVE.ITEM  return  boolean  is 
begin 

if  (PROPER.BODY)  then 


—  check  for  body. declaration 


return  ( TRUE  )  l 

alsif  l BYPASSl TOKEN.GENERIC ) )  than 
if  ( GENERIC.DECLARATION )  than 
return  (TRUE)! 
alsa 

SYNTAX.ERRORI "La tar  declarative  item")! 
and  if!  —  if  generic.declaration 

alsif  ( BYPASSl TOKEN.USE  )  >  then 
if  (WITH.OR.USE.CLAUSE  )  then 
return  (TRUE)! 
else 

SYNTAX_ERROR( "Later  declarative  item")! 
end  if!  —  if  wi th.or.usa.clause 

else 

return  (  FALSE)! 
end  if ! 

end  LATER.OECLARATIVE.ITEMi 


--  PROPER_BODY  — >  procedure  PROCEDURE_UNIT 
— >  function  FUNCTION.UNIT 
-->  package  PACK AGE .DECLARATION 
-*>  task  TASK.DECLARATION 
function  PR0PER.30DY  return  boolean  is 
begin 

if  I BYPASSl TOKEN.PROCEDURE  )  )  then 

DECLARE.TYPE  :=  PROCEOURE.OECLARE 1 
if  I  PROCEDURE .UNIT  l  then 
return  ( TRUE  )  I 
else 

SYNTAX.ERROR!  "Proper  body")! 

end  if!  —  if  procedure.uni t  statement 

alsif  ( BYPASS! TOKEN.FUNCTION  1  )  then 
DECLARE.TYPE  :=  FUNCTION.OECLARE ! 
if  ( FUNCTION.UNIT )  then 
return  ( TRUE  ) ! 
alsa 

SYNTAX.ERRORI "Proper  body" ) ! 

end  ifi  —  if  function.Lni t  statement 

alsif  ( BYPASS! TOKEN.PACKAGE ))  then 
DECLARE.TYPE  :=  PACKAGE.DECLARE ! 
if  (PACKAGE.DECLARATION)  then 
return  (TRUE)! 
else 

SYNTAX.ERRORI "Proper  body")! 

end  ifi  —  if  package.declaration 

alsif  ( BYPASS! TOKEN.T ASK  ) )  then 
DECLARE.TYPE  :=  TASK.DECLARE  ! 
if  ( TASK.DECLARATION  )  then 
return  (TRUE)! 
else 

SYNTAX.ERROR! "Proper  body"  I ! 
end  if ! 

else 

return  ( FALSE  ) ! 

and  if!  —  if  bypass! token_procadure ) 

and  PROPER.BOOY ! 


--  SEQUENCE.OF.STATEMENTS  -  •>  t STATEMENT ]♦ 
function  SEQUENCE.OF.STATEMENTS  return  boolean  is 
begin 

if  (STATEMENT)  then 

while  (STATEMENT)  loop 
null! 
end  loop! 
return  (TRUE)! 
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•  Isa 

p»tgm  (FALSE)) 
end  if) 

and  SEQUENCE.OF.STATEMENTS) 


—  STATEMENT  -->  [LABEL  ?1  SIMPLE.ST ATEMENT 

-->  [LABEL  ?1  COMPOUNO_ST ATEMENT 
function  STATEMENT  return  boolean  is 
begin 

if  (LABEL)  then 
null) 
end  i f ) 

if  ( SIMPL£_STATEMENT I  then 
return  t  TRUE  ) ) 

elsif  i COMPOUND .STATEMENT  I  then 
return  (TRUE)) 
else 

return  (FALSE)) 
end  if ) 

end  STATEMENT) 


—  COMPOUND .STATEMENT  — >  if  IF.ST ATEMENT 

— >  case  CASE .STATEMENT 
— >  LOOP .STATEMENT 
— >  BLOCK .STATEMENT 
— >  accept  ACCEPT .STATEMENT 
— >  select  SELECT.ST ATEMENT 
function  COMPOUND .STATEMENT  return  boolean  is 
begin 

if  l BYPASS! TCKEN.IF ) )  then 

NESTING.METRIC ( IF. CONSTRUCT )) 
if  l IF.ST ATEMENT)  then 
return  (TRUE)) 

else 

SYNTAX.ERROR! "Compound  statement")) 
end  if)  --  if  if.statemant 

elsif  ( BYPASS!  TOKEN.CASED  then 
NESTING.METRIC! CASE.CONSTRUCT ) ) 
if  ( CASE.ST ATEMENT )  then 
return  (TRUE)) 
else 

SYNTAX.ERROR! "Compound  statement")) 
end  if)  --  if  case.statement 

elsif  ( LOOP.ST ATEMENT )  then 
return  ( TRUE  ) ) 

elsif  ( BLOCK.ST ATEMENT )  then 
return  (TRUED 

elsif  ( BYPASS! TOKEN.ACCEPT 1 )  then 
if  (ACCEPT.ST ATEMENT )  then 
return  (TRUE)) 

else 

SYNTAX.ERROR!  "Composr>d  statement")) 
end  if ) 

elsif  ( BYPASS! TOKEN.SELECT  )  I  then 
if  ( SELECT.ST ATEMENT  I  then 
return  (TRUE!) 

else 

SYNTAX.ERROR!  "Compound  statement")) 
end  if ) 

else 

return  ( FALSE  I ) 
end  if ) 

end  COMPOUNO.ST ATEMENT i 


y, 


—  BLOCK.STATEMENT  —  >  tidontifior  :  ?1  Idoclaro  DECLARATIVE.PART  ?J 

bag in  SEQUENCE.OF.STATEMENTS  toxcoption 
lEXC£PTION_HANDLER ]♦  ? 1  ? I  and  I idontif iar  ?1  > 
function  BLOCK.STATEMENT  raturn  boolaan  is 
OECLARE_STATUS  :  boolaan ) 
bog  in 

if  (DECLARATION)  than 

DECLARE_ST ATUS  :  =  TRUE) 

alsa 

DECLARATION  :*  TRUE) 

OECLARE_STATUS  :»  FALSE) 
and  if ) 

OECLARE_TYPE  :»  BLOCK.OECLARE . 
if  I  BYPASS! TOKEN_TDENTIFIER I  I  than 
SCOPE.LEVEL  :  =  SCOPE. LEVEL  ♦  1) 
if  ( BYPASS! TOKEN.COLON II  than 

SCOPE.LEVEL  :*  SCOPE. LEVEL  -  l) 
alsa 

SYNTAX.ERRORl "Block  statomont" > ) 
ond  if)  —  if  bypass! tokon.co Ion  ) 

alsa 

DECLARE.TYPE  :=  VARIABLE.OECLARE ) 

and  if)  --  if  bypass! tokan.idantif iar  I 

if  (BYPASS! TOkEN.DECLARE I  1  than 
SCOPE.LEVEL  SCOPE.LEVEL  ♦  1) 
if  ! DECLARATIVE.PART i  than 
null ) 
alsa 

SYNTAX.ERRORl "Block  atatamont"  l ) 

and  if)  —  if  doclarativo_part  atatamont 

ana  if)  —  if  bypass!  tokon.doclaro  I 

if  !  BYPASS!  TOKEN.SEGIN  I  1  than 
DECLARATION  ;s  FALSE) 
if  (  SEQUENCE. OF.STATEMENTS  )  than 

if  1  BYPASS!  TOKEN.EXCEPTIONI  I  than 
if  (EXCEPTION.HAHDLER)  than 

whila  (EXCEPTION.HANOLER)  loop 
null) 
and  loop) 
alsa 

SYNTAX.ERRORl "Block  statomont")) 

and  if)  —  if  axcoption.handlor  statomont 

ond  if)  —  if  bypass! tokon.oxcapt ion > 

if  I  BYPASS! TOKEN.ENO  )  )  than 

if  (  BYPASS!  TOKEN.IOENTIFIER ) )  than 
null ) 

and  if)  --  if  bypass! tokan.idantif iar  ) 

if  ( BYPASS! TOKEN.SEMICOLON  I  )  than 
SCOPE.LEVEL  :=  SCOPE.LEVEL  -  1) 

DECLARATION  :=  TRUE) 
raturn  (TRUE)l 
alsa 

SYNTAX.ERRORl "Block  statomont")) 
and  if)  --  if  bypass! tokon.somi colon  I 

also 

SYNTAX.ERRORl "Block  statomont")) 
and  if)  —  if  bypass! tokan.and  ) 

alsa 

SYNTAX.ERRORl  "Block  statomont")) 

and  if)  —  if  saquonco.of.statamants 

alsa 

if  not  (DECLARE.STATUS)  than 
DECLARATION  :=  FALSE) 
and  if ) 

raturn  ( FALSE  I ) 

and  if)  --  if  bypass!  tokon.bogm  I 

and  BLOCK.STATEMENT) 


V 

V 


—  IF.STATEMENT  — >  EXPRESSION  than  SEQUENCE_OF_STATEMENTS 

[•Is if  EXPRESSION  then  SEQUENCE_OF_ST ATEMEWTS 1* 

(•Isa  SEQUENCE_OF_ST ATEHENTS  ?1  tnd  if  | 
function  IF_STATEMENT  ratum  boolean  is 
begin 

if  ( EXPRESSION )  than 

if  I  BYPASS! TOKEN.THEN ) )  than 

if  1SE9UENCE_0F_STATEMENTS )  than 
while  (BYPASS! TOKEN.ELSIF ) )  loop 
if  (EXPRESSION)  then 

if  ( BYPASS! TOKEN_THEN ) )  than 

if  not  ( SE<3UENCE_0F_STATEMENTS  )  then 
SYNTAX_ERROR( "If  statement"  ) ) 

and  if)  —  if  not  sequence_of_s ta tenants 

else 

SYNTAX_ERRORI "If  statement")) 
and  if)  —  if  bypass! token_ then ) 

else 

SYNTAX_ERROR! "If  statement")) 
end  if)  —  if  expression  statement 

end  loop) 

if  ( BYPASS! TOKEN_ELSE ) )  then 

if  ( SE<3UENCE_0F  STATEMENTS)  than 
null) 

else 

SYNTAX_ERR0R( "If  statement")) 

end  if)  —  if  sequenca_of_statements 

and  if)  —  if  bypass! token.alse  ) 

if  ( BYPASS! TOKEN.ENO I  1  then 
if  ( BYPASS! TOKEN.IF  )  )  then 

if  ( BYPASS! TOKEN.SEMICOLON  )  )  than 
NESTING_METRICI IF_ENO ) ) 
return  ( TRUE  ) ) 

•  Isa 

SYNTAX_ERROR(  "If  statement")) 
and  if)  —  if  bypass! tokan_semicolon ) 

•  Isa 

SYNTAX_ERROR( "If  statement"  ) ) 
and  if)  —  if  bypass! tokan.if  ) 

•  Isa 

SYNTAX_ERRORf "If  statement")) 
end  if)  —  if  bypass! token_end ) 

else 

SYNTAX_ERROR(  "If  statement")) 

end  if)  —  if  sequenca_of_s ta temon t * 

•  Isa 

SYNTAX.ERROR!  "If  statement")) 

end  if)  —  if  bypass! token.then ) 

else 

return  (FALSE)) 

end  if)  --  if  expression  statement 

end  IF_STATEMENT) 


--  CASE_STATEhENT  — >  EXPRESSION  is  [ CASE_STATEMENT_ALTERHATIVE  1+  end  case  ) 
function  CASE_STATEMENT  return  boolean  is 
begin 

if  (EXPRESSION)  then 

if  (BYPASS! TOKEN.IS  I  I  then 

if  < CASE_STATEMENT_ALTERNATIVE )  then 

while  (CASE_STATEMENT_ALTERNATIVE  )  loop 
null ) 
end  loop ) 

if  ( BYPASS! TOKEN_ENO)  I  then 

if  ( BYPASS! TOKEN.CASE  )  )  then 

if  ( BYPASS! TOKEN.SEMICOLON  )  )  then 


NESTING_METRIC ( CASE_END  ) } 
return  (TRUE)} 

•Isa 

SYNTAX_ERROR( "Casa  statement" )} 
and  if}  —  if  bypass ( toKan_samicolon ) 

•Isa 

SYNT AX_ERROR( "Case  statement" U 
and  if}  —  if  bypass ( token_case  ) 

alsa 

SYNT AX_E  RROR ( "Casa  statement"  ) } 
end  if}  —  if  bypass! tokan_end) 

else 

SYNT AX_E RROR ( "Casa  statement"  ) } 

and  if}  —  if  case_statament_altemative 

•  Isa 

SYNTAX_ERROR< "Casa  statement" 1 } 
end  if}  —  if  bypass! token_is  ) 

alsa 

return  ( FALSE  ) } 

and  if}  —  if  expression  statement 

end  CASE_STATEMENT } 


—  CASE_STATEMENT_ALTERNATIVE  — >  when  CHOICE  t  CHOICE => 

SEQUENCE_OF_STATEMENTS 

function  CASE_STATEMENT_ALTERNATIVE  return  boolean  is 
begin 

if  < BYPASS! TOKEN_WHEN II  than 
if  (CHOICE)  then 

while  ( BYPASS! TOKEN_BAR  )  )  loop 
if  not  (CHOICE)  then 

SYNTAX_ERRCR1 "Casa  statement  alternative"  )} 
end  if}  —  if  not  choice  statement 

end  loop} 

if  ( BYPASS! TOKEN_ARROW  ) )  then 

if  ( SEQUENCE_OF_STATEMENTS  )  then 
return  (TRUE)} 

else 

SYNT AX_ERROR( "Case  statement  alternative"  ) } 
end  if}  —  if  sequance,of_statements 

else 

SYNT AX_ERROR( "Case  statement  alternative")} 
and  if}  —  if  bypass! toKen_arrow ) 

else 

SYNT AX_ERROR( "Case  statement  alternative”)} 
and  if}  —  if  choice  statement 

else 

return  (FALSE)} 

end  if}  —  if  bypass! token_when) 

end  CASE_STATEMENT_ALTERNATIVE } 


—  LOOP_ST ATEMENT  — >  [identifier  :  ?]  [ ITERATION_SCHEME  ?]  loop 

SEQUENCE_OF_STATEMENTS  end  loop  [identifier  ?]  } 
function  LOOP_ST ATEMENT  return  boolean  is 
begin 

if  ( BYPASS! TOKEN_IDENTIFIER  )  )  then 
if  ( BYPASS! TOKEN  COLON))  then 
null} 

else 

SYNTAX_ERROR( "Loop  statement"  ) } 
end  if}  —  if  bypass! token_colon ) 

end  if}  —  if  bypass! token_identif ier ) 

if  ( ITERATION_SCHEME )  then 
NO_ITERATION  :=  FALSE} 

end  if}  —  if  iteration_scheme  statement 

if  ( BYPASS! TOKEN, LOOP ) )  then 
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if  ( NO_ITERATION )  than 

NESTING_METRIC( LOOP_CONSTRUCT  )  * 

else 

NO.ITERATION  :=  TRUE  * 
end  if* 

if  <SEQUENCE_OF_ST ATEMENTS)  then 
if  ( BYPASS! TOKEN_ENO ) )  then 

if  ( BYPASS! TOKEN. LOOP  )  I  then 

if  ( BYPASS! TOKEN_IDENTIFIER))  then 
null* 

end  if*  —  if  bypass! token_identif ier ) 

if  ( BYPASS! TOKEN_SEMICOLON ) )  then 
NESTING.METRIC! LOOP.ENO  )* 
return  (TRUE)t 

else 

SYNTAX_ERROR< "Loop  s  ta  tament"  !  * 
and  if*  —  if  bypass! token_semico Ion  I 

else 

SYNTAX_ERRORl "Loop  sta tenant"  ) * 
and  if*  —  if  bypass! token_ loop  ) 

alsa 

SYNTAX_ERROR( "Loop  statement"  )* 
and  if*  —  if  bypass! token_end ) 

else 

SYNTAX_ERROR(  "Loop  statement"  ) * 

and  if*  —  if  sequenca_of_stateinents 

alsa 

return  ( FALSE  )  * 

end  if*  —  if  bypass!  tok.en_loop  ) 

end  LOOP_STATEMENT  * 


—  EXCEPTION_HANDL£R  — >  when  EXCEPTION.CHOICE  t  EXCEPTION_CHOICE ]»  => 

SE<3UENCE_0F_ST  ATEMENTS 
function  EXCEPTION_HANDLER  return  boolean  is 
begin 

if  1  BYPASS! TOKEN_WHEN  ) )  then 
if  ( EXCEPTION_CHOICE )  then 

while  ( BYPASS! TOKEN_BAR ))  loop 
if  not  ( EXCEPTION_CHOICE )  then 

SYNT AX_E RROR I "Exception  handler" ) * 
end  ifj  —  if  not  exception_choice 

end  loop* 

if  ( BYPASS! TOKEN_ARROW))  then 

if  ( SEQUENCE_OF_ST ATEMENTS )  then 
return  (TRUE)* 

else 

SYNT AX_ERROR(  "Exception  handler")* 
end  if*  —  if  sequence_of_statements 

else 

SYNTAX_ERROR< "Exception  handler"  )  * 
end  if*  —  if  bypass! token_arrow ) 

else 

SYNT AX_ERROR< "Exception  handler")* 

end  if*  —  if  except ion_choice  statement 

else 

return  (FALSE)* 

end  if*  —  if  bypass! token-when ) 

end  EXCEPTION_HANDLER* 


—  ACCEPT_STATEMENT  — >  identifier  [(EXPRESSION)  ?]  [ FORMAL_PART  ?] 

[do  SEQUENCE_OF_ST ATEMENTS  end  [identifier  ?]  ?]  * 
function  ACCEPT_STATEMENT  return  boolean  is 
begin 

if  ( BYPASS! TOKEN.IDENTIFIER ) )  then 
if  ( BYPASS! TOKEN_LEFT_PAREN ) )  then 


if  (EXPRESSION)  then 

if  ( BYPASS! TOKEN.RIGHT.PAREN ) )  than 
null  I 

•Isa 

SYNT AX_E  RROR ( "Accept  statamant"  )  ) 
and  if )  —  if  bypass! token_right_paren ) 

alsa 

SYNTAX.ERRORI "Accept  statement"  )  ) 
and  if t  —  if  expression  statement 

end  if  )  —  if  bypass! token.lef t_paren ) 

if  ( FORMAL.PART )  than 
null) 

end  if)  —  if  formal_part  statement 

if  ( BYPASS! TOKEN.DO  )  )  than 

if  (SEQUENCE.OF .STATEMENTS  I  than 
if  ( SYPAS3! TOKEN.ENO ) I  then 

if  ( BYPASS! TOKEN.IQENTIFIER l>  than 
nulls 

end  if)  —  if  bypass! token. identifier t 

else 

SYNT  AX.ERROR!  "Accept  statement")* 
end  if)  --  if  bypass! token.end  ) 

else 

SYNTAX.E RROR! "Accept  statement"  I) 
end  if)  —  if  sequanca.of.sta tenants 

end  if)  —  if  bypass! token.do  ) 

if  i BYPASS! TOKEN. SEMICOLON  )  I  than 
return  (TRUE)) 
else 

SYNTAX.ERRORI "Accept  statement"  I) 
and  if)  —  if  bypass! token.semicolon  I 

else 

return  ( FALSE  ) ) 

end  if)  —  if  bypass! token.idantif ier t 

end  ACCEPT.STATEMENT) 


—  SELECT.STATEMENT  — >  SELECT.STATEMENT.TAIL  SELECT.ENTRY.CALL  end  select  ) 
function  SELECT.STATEMENT  return  boolean  is 
begin 

if  (SELECT.STATEMENT.TAIU  than 
if  (SELECT.ENTRY.CALL)  then 
if  (BYPASS! TOKEN.ENO ) )  than 

if  ( BYPASS! TOKEN.SELECT  )  )  than 

if  ( BYPASS! TOKEN.SEMICOLON  )  )  than 
return  ( TRUE  ) ) 
else 

SYNTAX.ERRORI "Select  statement")) 
and  if)  —  if  bypass! token.semicolon  ) 

else 

SYNTAX.ERRORI "Select  statement")) 
end  if)  —  if  bypass! token.salect  ) 

else 

SYNTAX.ERRORI  "Select  statement")) 
end  if)  —  if  bypass! token.end ) 

else 

SYNTAX.ERRORI "Select  statement")) 

end  if)  —  if  select. entry.call  statement 

else 

return  (FALSE)) 

end  if)  —  if  select.statement.tai 1 

end  SELECT.STATEMENT) 


—  SELECT.STATEMENT.TAI L  — >  SELECT. ALTERNATIVE  lor  SELECT.ALTERNATIVE  J* 

-->  NAME  )  ISEGUENCE.OF.STATEMENTS  ?I 
function  SELECT.STATEMENT.TAIL  return  boolean  is 
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I  and  SELECT_ALTERNATIVE * 


—  SELECT_ENTRY_CALL  — >  else  SE<3UENCE_0F_ST ATEMENTS 

— >  or  delay  DELAY_STATEMENT  tSEQUENCE_OF_STATEMENTS  ?] 
function  SELECT_ENTRY_CALL  return  boolean  is 
begin 

if  < BYPASS! TOKEN_ELSE  )  )  then 

if  (  SEQUENCE_OF_STATEMENTS  I  then 
return  (TRUE)* 

else 

SYNTAX_ERRCk<  "Select  entry  call")* 
end  if*  --  if  saquenca_of_sta tenants 

elsif  i BYPASS! TOKEN_OR  ' )  then 
if  i BYPASS! TOKEN_DELAY  )  l  then 
if  ( OELAY_STATEMENT  I  than 

if  (SEQUENCE_OF_ST ATEMENTS  I  then 
null  * 

end  if*  —  if  seguanca_of_statements 

return  ( TRUE  )  * 

else 

SYNTAX_ERROR< "Select  entry  call")* 
end  if*  —  if  delay_statenent 

else 

SYNTAX.ERROR! "Select  entry  call"!* 
end  if*  --  if  bypass! token_delay  1 

else 

return  (FALSE)* 

end  if*  --if  bypass! token_alse  ) 

and  3ELECT_ENTRY_CALLi 

end  PARSER_ll 
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APPENDIX  E 

'ADAMEASURE'  PROGRAM  LISTING  -  PART  3 


—  TITLE:  AN  ADA  SOFTWARE  METRIC 

--  MODULE  NAME:  PACKAGE  PARSER_2 

--  DATE  CREATED:  18  JUL  36 

--  LAST  MODIFIED:  04  DEC  36 

--  AUTHORS:  LCOR  JEFFREY  L.  NIEDER 

LT  KARL  S.  FAIRBANKS,  JR. 

DESCRIPTION:  This  package  contains  thirty-three  functions 

that  are  the  middle  level  productions  for  our  top-down, 

—  recursive  descent  parser.  Each  function  is  preceded 

--  by  the  grammaar  productions  they  are  implementing. 


with  PARSER_3 ,  PARSER.4,  BYPASS_FUNCTION,  BYPASS_SUPPORT_FUNCTIONS, 
GLOBAL_PARSER ,  GLOBAL: 

use  PARSER.!,  PARSER.4,  3YPASS.FUNCTI0N ,  BYPASS _SUPPORT_FUNCTICNS , 
GLOBAL. PARSER,  GLOBAL: 

package  3ARSER_2  is 

function  GENERIC.ACTUAL.PART  return  boolean: 
function  G£NERIC_ASS0CIATI0N  return  boolean: 
function  G£NERIC_rORMAL_PARAMETER  return  boolean: 
function  G£NERIC_TYPE_DEFINITION  return  boolean: 
fixation  PRIVATE_TYPE_OECLARATION  return  boolean: 
function  TYPE_DECLARATION  return  boolean: 
function  SUBTYPE_DECLARATION  return  boolean: 
function  DISCRIMINANT_PART  return  boolean: 
function  DISCRIMINANT_SPECIFICATION  return  boolean: 
function  TYPE_OEFINITION  return  boolean: 
function  R£CORD_TYPE_DEFINITION  return  boolean: 
function  COMPONENT_LIST  return  boolean: 
function  COMPONENT_OECLARATION  return  boolean: 
function  VARIANT_PART  return  boolean: 
function  VARIANT  return  boolean: 
function  WITH_OR_USE_CLAUSE  return  boolean: 
function  FORMAL_PART  return  boolean: 
function  IOENTIFIER_DECLARATION  return  boolean: 
function  IOENTIFIER_DECLARATION_TAIL  return  boolean: 
function  EXCEPTION.TAIL  return  boolean: 
function  EXCEPTION_CHOICE  return  boolean: 
function  CONST ANT.TERM  return  boolean: 
function  IDENTIFI£R_TAIL  return  boolean: 
function  PARAMETER_SPECIFICATION  return  boolean: 
function  IDENTIFIER_LIST  return  boolean: 
function  MODE  return  boolean: 
function  DESIGNATOR  return  boolean: 
function  SIMPLE_STATEMENT  return  boolean: 
function  ASSIGNMENT_OR_PROCEDURE_CALL  return  boolean: 
function  LABEL  return  boolean: 
function  ENTRY_DECLARATION  return  boolean: 
function  REPRESENTATION.CLAUSE  return  boolean: 
function  REC0R0_RE PRESENT ATION_CLAUSE  return  boolean: 
end  PARSER_2 : 


package  body  PARSER_2  is 


—  GENERIC_ACTUAL_PART  — >  I GENERIC.ASSOCIATION  t,  GENERIC_ASSOCIATION  ]**  ) 
function  GENERIC_ACTUAL_PART  return  boolean  is 
begin 

if  ( BYPASS! TOKEN_LEFT_PAREN  )  )  then 
if  <GENERIC_ASSOCIATION)  then 

while  ( BYPASS! TOKEN_COMMA  )  )  loop 

if  not  (GENERIC_ASSOCIATION)  then 

SYNTAX_ERROR( "Generic  actual  part")* 
end  if*  —  if  not  generic_association 

end  loop  * 

if  ( BYPASSI TQKEN_RIGHT_PAREN ) t  then 
return  I  TRUE  )  t 
else 

SYNTAX_SRROR( "Generic  actual  part" I* 
and  if*  —  if  bypassl token_right_paran ) 

else 

SYNTAX_ERRORI "Generic  actual  part")* 
end  if*  —  if  generic  association  statement 

else 

return) FALSE ) * 

end  if*  —  if  bypassl token_lef t_paren  ) 

end  GENERIC_ACTUAl_PART* 


--  GENE RIC_ ASSOCIATION  — >  t G£NERIC_FCRMAI _ PARAMETER  ?)  EXPRESSION 

function  GEN£RIC_ASSOCIATION  return  ooolaan  is 
begin 

if  i GENERIC.FORMAL. PARAMETER )  then 
null  * 

end  if*  —  if  gener ic_formal_parameter  statement 

if  [EXPRESSION)  then  --  check  for  gener ic_actual_parameter 

return  I  TRUE  )  * 

else 

return  (FALSE)* 

end  if*  —  if  expression 

end  GENERIC  ASSOCIATION* 


—  if  expression 


--  GENERIC_FORMAL_PARAMETER  -->  identifier  => 

-->  s tring_l i teral  =  > 

function  GfcNERIC_FORMAL_PARAMETER  return  boolean  is 
Degin 

LOOK_AHEAD_TOKEN  TOKEN_RECORD_BUFFER( TOKEN_ARRAY_INDEX  ♦  X  )  * 
if  ( AOJUST_LEXEME(  LOOK_AHE AD_TOKEN . LEXEME , 

LOOK_AHEAD_TOKEN.lEXEME_SIZE  -  1)  *  "  =  >"  )  then 
if  I BYPASSI TOKEN_IDENTIFIER 1  I  then 
if  (BYPASSI TOKEN_ ARROW  I  I  then 
return  I  TRUE  I  * 
else 

SYNTAX_ERROR( "Gener ic  formal  parameter")* 
end  if*  --  if  bypassl token_arrow ) 

els i f  I BYPASSI TOKENSTRINGLITERAL  I  I  then 
if  I BYPASSI TOXEN_ARROW  i  I  then 
return  I  TRUE  '  * 
else 

SYNTAX  ERROR  I  "Gener lc  formal  parameter"!* 
end  if*  --if  bypassl token_arrow  ) 

else 

SYNT AX _E RRORi "Gener ic  formal  parameter"!* 
end  if*  --  if  bypassl token_ identifier ) 

else 

return  I  FALSE  I  * 

end  if*  -  if  ad)us t_ lexeme  I  lookahead_ token ) 

end  GENERIC  FORMAL  PARAMETER* 


—  GENERIC_TYPE_DEFINITION  — >  (  <>  ) 

—  — >  range  <> 

— >  digits  <> 

— >  delta  <> 

— >  array  ARRAY_TYPE_DEFINITION 
— >  access  SUBTYPE_INDICATION 
•function  GENERIC_TYPE_DEFINITION  return  boolean  is 
begin 

if  ( BYPASS! TOKEN_LEFT_PAREN ) )  then 
if  ( BYPASS! TOKEN_BRACKETS )  )  then 

if  < BYPASS! TOKEN_RIGHT_PAREN  )  )  then 
return  (TRUE)* 
else 

SYNTAX_ERRORl "Generic  type  definition”)* 
end  if*  —  if  bypass! token_right_paren ) 

else 

SYNTAX_ERROR( "Generic  type  definition")* 
end  if*  —  if  bypass! token_brackets  ) 

elsif  ( BYPASS! TOKEN_RANGE  ))  or  else  ( BYPASS! TOKEN_DIGITS  )  ) 
or  else  ( BYPASS! TOKEN_DELTA ) )  then 
if  I  BYPASS! TOK£N_BRACKETS  )  )  then 
return  ( TRUE  )  * 
else 

SYNTAX_£RRORl "Generic  type  def inition"  )  * 
end  if*  —  if  bypass! token_brackets  ) 

elsif  ( BYPASS! TOKEH.ARRAY  )  )  then 
if  I ARRAY_TYPE_OEFINITION  )  then 
return  !TRUE)( 
else 

SYNTAX_ERRORl "Generic  type  definition")* 
end  if*  —  if  array_type_def inition 

elsif  l BYPASS! TOKEN_ACCESS ) )  then 
if  (SUBTYP£_INOICATION)  then 
return  (TRUE)* 
else 

SYNTAX_ERROR( "Generic  type  definition")* 
end  if*  —  if  subtype.indication 

else 

return  (FALSE)* 

end  if*  —  if  bypass! token_lef t_paren ) 

end  GENERIC_TYPE_DEFINITION* 


—  PRIVATE_TYPE_DECLARATION  — >  (limited  ?]  private 
finction  PRIVATE_TYPE_DECLARATION  return  boolean  is 
begin 

if  < BYPASS! TOKEN_LIMITEO))  then 
null  * 
end  if* 

if  ( BYPASS! TOKEN.PRIVATE ) )  then 
return  (TRUE)* 

else 

return  (FALSE)* 
end  if  * 

end  PRIVATE_TYPE_DECLARATION  * 


--  SUBTYPE.OECLARATION  — >  identifier  is  SUBTYPE.INDICATION  * 
function  SUBTYPE_DECLARATION  return  boolean  is 
begin 

if  ( BYPASS! TOKEN.IDENTIFIER))  then 
if  ( BYPASS! TOKEN_IS  )  )  then 

if  <SUBTYPE_INDICATION)  then 

if  ( BYPASS! TOKEN_SEMICOLON ) 1  then 


return  ( TRUE  )  i 
•  Isa 

SYNTAX_ERRORl  "Subtype  declaration"  )  \ 
and  if!  —  if  bypass! token.semicolon  ) 

alsa 

SYNTAX.ERROR! "Subtype  declaration" ) ! 
and  if!  —  if  subtype.indication  s+atement 

•  Isa 

SYNT AX_E RROR ( "Subtypa  declaration"  1  i 
and  if!  —  if  bypass! token_is  ) 

•  Isa 

ratum  (  FALSE  ) » 

end  ifi  —  if  bypass! token_identif ier  ) 

end  SU8TYPE .DECLARATION 


--  TYPE.DECLARATION  — >  identifier  t  DISCRIMINANT.PART  ?! 

is  SUBTYPE.INDICATION! 
function  TYPE.DECLARATION  return  boolean  is 
begin 

if  < BYPASS! TOKEN.IDENTIFIER n  then 
if  ( DISCRIMINANT.PART  )  then 
null  i 

end  ifi  —  if  discriminant.part  statement 

if  I  BYPASS!  TOKEN.IS  I  )  then  declaration  is  full,  type  if  'is' 

if  1 PRIVATE.TYPE.OECLARATION  )  then 
null  i 

alsif  I TYPE.DEFINITION  )  then  —  present ,  otherwise  incomplete.type 

null  i 
else 

SYNTAX.ERROR! “Type  declaration" 1| 
end  if*  —  if  type.def inition  statement 

end  if  I  —  if  bypassl token.is  ) 

if  ( BYPASS! TOKEN.SEMICOLON  ))  then 
return  ( TRUE  )  I 
else 

SYNTAX.ERROR! "Type  declaration"  )  i 
end  if»  —  if  bypass! token.semicolon) 

else 

return  (FALSE)! 

end  if!  —  if  bypassl token.identif ier  ) 

end  TYPE.DECLARATION! 


—  DISCRIMINANT.PART  ( OISCRIMINANT.SPECIFICATION 

t!  OISCRIMINANT.SPECIFICATION!*  ) 
function  DISCRIMINANT.PART  return  boolean  is 
begin 

if  ( BYPASS! TOKEN.LEFT.PAREN  I  )  then 

if  ! DISCRIMINANT.SPECI FICATION  )  then 
while  (BYPASS! TOKEN.SEMICOLON))  loop 

if  not  (OISCRIMINANT.SPECIFICATION)  then 
SYNTAX.ERROR! "Oiscriminant  part")! 
end  ifi  —  if  not  discriminant.specif i cat ion 

end  loop! 

if  ( BYPASS! TOKEN.RIGHT.PAREN ) )  then 
return  I  TRUE  )  i 

else 

SYNTAX.ERROR! "Discriminant  part"  )! 
end  if!  —  if  bypass! toKen.r ight.paren ) 

else 

SYNTAX.ERROR! "Discriminant  part"  ) ! 
end  if!  —  if  discriminant.specif ication 

else 

return  (FALSE)! 

end  if!  --  if  bypass! token. left.paren  ) 

end  DISCRIMINANT.PART! 
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—  OISCRIMINANT.SPECIFICATION  — >  IOENTIFIER.LIST  :  NAME  [:=  EXPRESSION  ?] 
function  0ISCRIMINANT_SPECIFICATION  return  boolean  is 
begin 

if  ( IDENTIFIER. LIST )  then 

if  ( BYPASS! TOKEN.COLON > )  then 

if  (NAME)  then  —  check  for  type,  mark 

if  (BYPASS(TOKEN_ASSIGNMENT ) )  then 
if  (EXPRESSION)  then 
null  * 
else 

SYNTAX_ERROR(  "0  iscr  in  inant  specification''  )  v 
end  if*  —  if  expression  statement 

and  if*  —  if  bypass!  token_ass ignment ) 

return  l  TRUE  )  * 
else 

SYNTAX_ERROR( "3 iscr im inant  specif i cat ion" >  * 
end  if*  —  if  name  statement 

else 

SYNTAX_ERROR( "Oiscriminant  specification"  I  * 
end  if*  —  if  bypass! token_colon  ) 

else 

return  ( FALSE  )  * 

end  if*  —  if  identif ier_list  statement 

end  JISCRIMINANT.SPECIFICATION* 


--  TYPE_3EFINITION 

--  > 

-- 

—  — > 


ENUMERATION_tyPE_0£FINITION 
INTEGER .TYPE .DEFINITION 

digits  FLCATING_OR_f IXE D_ POINT. CONSTRAINT 
delta  FLOATING.OR.FIXED.POINT.CONSTRAINT 
array  ARRAY_TYPE_D£ FINITION 
record  RECORO_:YPE_0EFINITION 
access  SUBTYPE.INDICATION 
new  SUBTYPE_INOICATION 


function  TYPE_OEFINITION  return  boolean  is 
begin 

if  ( ENUMERATION_TYPE_OEFINITION  )  then 
return  (TRUE  )  * 


elsif  ( INTEGER_TYPE_OEFINITION )  then 
return  (TRUE)* 

elsif  ( BYPASS! TOKEN_OIGITS  )  )  or  else  ( BYPASS! TOKEN_DELTA  )  )  then 
if  ( FLOATING.OR.FIXED.POINT.CONSTRAINT  )  then 
return  (TRUE)* 


else 


SYNT AX_ERROR( "Type  definition")* 

end  if*  —  f loating_or_f ixed_point_constraint 

elsif  ( BYPASS! TOKEN_ARRAY  )  )  then 
if  ( ARRAY_TYPE_DEFINITION )  then 
return  (TRUE)* 

else 


SYNTAX_ERROR( "Type  definition")* 
end  if*  —  if  array_type_def ini tion 

elsif  ( BYPASS! TOKEN_RECORD_STRUCTURE  )  )  then 
if  ( RECORD_TYPE_DEFINITION  )  then 
return  ( TRUE  )  * 
else 


SYNTAX_ERROR< "Type  definition")* 

end  if*  —  if  record. type_def inition 

elsif  ( BYPASS! TOKEN.ACCESS  ) )  or  else  < BYPASS! TOKEN.NEW > >  then 
if  (SUBTYPE.INDICATION)  then 
return  (TRUE)* 

else 


SYNTAX.ERRORI "Type  definition")* 
end  if  * 
else 


if  subtype.indication 


rrr,7 
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r«tum  I  FALSE  )  1 
end  if) 

end  TYPE .DEFINITION  I 


—  RECORD.TYPE .DEFINITION  — >  COMPONENT.LIST  and  record 
function  RECORD_TYPE_D£FINITION  raturn  boolean  is 
begin 

if  (COMPONENT.LIST)  then 

if  (BYPASS! TOKEN.END  ))  then 

if  l BYPASS! TOKEN.RECORD.STRUCTURE  )  )  then 
return  (TRUE)! 
else 

SYNTAX.ERROR! "Record  type  def inition"  1 i 
ana  if)  —  if  bypass! tokan.record-str-ucture  l 

else 

SYNTAX.ERROR! "Record  type  definition")! 
and  if!  —  if  bypass f tokan.and ) 

else 

return  ! FALSE  ) ! 

end  if!  --  if  component. list  statement 

end  RECORD.TYPE.DEFINITION! 


--  COMPONENT.LIST  [ COMPONENT.OECLARATION J*  [ VARIANT.PART  ?) 

null  i 

function  COMPONENT.LIST  raturn  boolean  is 
begin 

4hile  COMPONENT.OECLARATION)  loop 
null  i 

end  loop ! 

if  (VARIANT.PART)  then 
null ! 

alsif  i BYPASS! TOKEN.NULL  ))  then 

if  ! BYPASS! TOKEN.SEMICOLON))  then 
null! 
end  if! 

end  ifl 

return  (TRUE)! 
end  COMPONENT.LIST! 


—  COMPONENT.OECLARATION  IDENTIFIER.LIST  :  SUBTYPE.INDICATION 

l:=  EXPRESSION  ?J  ! 

function  COMPONENT.OECLARATION  return  boolean  is 
begin 

if  ( IOENTIFIER.LIST )  then 

i f  ( BYPASS! TOKEN.COLON ) )  then 
if  (SUBTYPE.INDICATION)  then 

if  ( BYPASS! TOKEN.ASSIGNMENT  ))  then 
if  (EXPRESSION)  then 

if  ( BYPASS! TOKEN.SEMICOLON  )  )  then 
return  ( TRUE  ) ! 
else 

SYNTAX.ERROR! "Component  declaration"  )  I 
end  if)  —  if  bypass! token.semicolon  ) 

else 

SYNT AX.E  RROR ( "Componen  t  dec 1 a  ra  t i on"  )  > 
end  if!  —  if  expression  statement 

end  ifl  —  if  bypass! token.ass ignment  ) 

if  (BYPASS! TOKEN.SEMICOLON))  then 
return  (TRUE)! 
else 

SYNTAX.ERROR! "Component  declaration"  ) ) 
end  if)  —  if  bypass! token.semicolon ) 
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SYNTAX_ERROR( "Component  declaration"  )j 
and  if)  —  if  subtype_ indication  statement 

else 

SYNTAX.E RROR! "Component  declaration"  )  ) 
end  if )  —  if  bypass! token_colon ) 

else 

return  ( FALSE  )  ) 

end  i f »  —  if  identif ier_list  statement 

end  COMPONENT_OECLARATION ) 


—  VARIANT_PART  -->  case  identifier  is  [VARIANT]*  end  case  > 
function  VARIANT_PART  return  boolean  is 
begin 

if  1  BYPASS! TOKEN_CASE  I  )  then 

if  ( BYPASS! TOKEN_IOENTIFIER)  I  then 
if  ( BYPASS! TOKEN_IS))  then 
if  (VARIANT)  then 

while  (VARIANT)  loop 
null) 
end  loop ) 

if  ( BYPASS! TOKEN_END))  then 

if  ( BYPASS! TOKEN_CASE  )  )  then 

if  l BYPASS! TOKEN_SEMICOLON  ) )  then 
return  (TRUE!) 
else 

SYNTAX_ERROR< "Variant  part")) 
end  if)  —  if  bypass! token_semicolon  ) 

else 

SYNTAX_ERROR!  "Variant  part"  ' ) 
end  if)  —  if  bypass! toKen_case  I 

else 

SYNTAX_ERROR< "Variant  part"  ! ) 
end  if)  —  if  bypass! token_ end ) 

else 

SYNT AX_E RROR ( "Variant  part"  ) ) 
end  if)  —  if  variant  statement 

else 

SYNT AX_ERROR( "Variant  part")) 
end  if)  --  if  bypass! token_is  ) 

else 

SYNT AX_ERROR( "Variant  part")) 

end  if)  —  if  bypass! token_identif ier  ) 

else 

return  (FALSE)) 

end  if)  —  if  bypass! token_case  ) 

end  VARIANT_PART ) 


—  VARIANT  — >  when  CHOICE  t  CHOICE!*  =>  COMPONENT_LIST 
function  VARIANT  return  boolean  is 
begin 

if  ( BYPASS! TOKEN_HHEN))  then 
if  (CHOICE)  then 

while  ( BYPASS! TOKEN_BAR  )  )  loop 
if  not  (CHOICE)  then 

SYNT AX_E RROR! "Variant" I ) 

end  if)  —  if  not  choice  statement 

end  loop) 

if  ( BYPASS! TOKEN_ARROW ) )  then 
if  ( COMPONENT_LIST )  then 
return  ( TRUE  ) ) 

else 

SYNTAX_ERROR( "Variant" ) ) 

end  if)  --  if  componen t_ 1 i s t  statement 

else 

SYNT  AX_E  RROR ( "Variant"  1 ) 
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end  if  i 

•  Isa 

SYNTAX_ERROR( "Variant"  ) t 
•nd  if  t 

•Isa 

rttum  (  FALSE  )  t 
•nd  ift 
•nd  VARIANT t 


--  if  bypassl  token. arrow  l 


if  choice  statement 


if  bypass! tokan.when  I 
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--  HITH_OR_USE_CLAUSE  -->  identifier  [,  identifier)*  t 
function  HITH_OR_USE_CLAUSE  return  boolean  is 
begin 

if  ( BYPASS! TOKEN.IDENTIFIER I  I  then 
while  i BYPASS! TOkEN.COMMA  I  I  looo 

if  not  I  BYPASS! TOKEN.IOENTIFIER I  I  then 
SYNTAX.ERROR!  "Wi th  or  use  clause"  It 
and  if  t 
end  loop  t 

if  < BYPASS! TOKEN.SEMICGLON II  then 
return  I  TRUE  1 1 

else 

SYNTAX_ERRORl "With  or  use  clause"  it 
end  ift  --  if  bypassl  token.semicolon  i 

else 

return  ( FALSE  I  t 

end  ift  --  if  bypass!  token.  ident  i  f  nr  I 

end  HITH_OR_USE_CLAUSc t 


N 
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--  FORMAL_PART  i PARAMETER.SPECIFICATTON  It  PARAMETER. SPEC  I F IC AT TCN  !»  i 

function  FORMAL.PART  return  boolean  is 
begin 

if  1  BYPASS! TOY EN.LE FT.PAREN  I  I  then 
if  (PARAMETER.SPECIFICATION I  then 

while  (BYPASS! TOKEN.SEMICOLON  I  I  loop 

if  not  l PARAMETER.SPECIFICATION >  then 
SYNTAX_ERRORI "Formal  part" It 

and  ift  --  if  not  parameter.spec i f ica t ion  statement 

end  loop  t 

if  I  BYPASS! TOKEN.RIGHT.PAREN  I  I  then 
return  I  TRUE  1 1 
else 

SYNTAX.ERROR!  "Formal  pa'-t"l| 

end  ift  --  if  bypass!  token.r  i^it  parent  statement 

else 

SYNTAX.ERROR! "Formal  part"  It 

end  ift  --  if  parameter.spec i f icat ion  statement 

else 

return  ( FALSE  1 1 

end  ift  --  if  bypassl token. left.paren I  statement 

end  FORMAL.PART  t 


--  IDENTIFIER. DECLARATION  -->  IDENTIFIER. LIST  :  IDENTI F IER. DEC L ARAT ION. T AI L 
function  IDENTIFIER.DECLARATION  return  boolean  is 
begin 

if  ( IDENTIFIER.LIST I  then 

if  I  BYPASS! TOKEN.COLON I  I  then 

if  ( IDENTI FI ER. DEC L ARAT ION  T AI L  I  then 
return  ( TRUE  1 1 

else 

SYNT AX.ERROR I "Ident i f ier  dec lara t ion"  It 
end  ift  --  if  identifier  list  statement 

else 

SYNT AX_ERROR( "Identifier  declaration"  It 


I 


if  byp»*s(  tok«o_colon ) 


—  if  bypass) token_semicolon ) 


and  ifi 

•Isa 

SYNTAX_ERROR( "Exception  tail")* 
and  if* 

•Isa 

return  (FALSE)* 
end  if* 

and  EXCEPTION_TAIL  * 


—  EXCEPTION_CHOICE  — >  identifier 
—  — >  others 

function  £XCEPTION_CHOICE  return  boolean  is 
begin 

if  ( BYPASS)  TOKEN_TOENTIFIER))  then 
return  l TRUE  H 

elsif  i BYPASS) TOK£N_OTHERS  !  )  then 
return  (TRUE)* 
else 

return  (FALSE)* 
end  if  * 

end  EXCEPTION_CHOICE  * 


—  CONST ANT_TERM  -->  array  ARRAY_TYPE_DEFINITION  t:=  EXPRESSION  ?]  * 
— >  :=  EXPRESSION  * 

— >  NAME  IDENTIFIER_TAIL 
function  CONSTANT _TERM  return  boolean  is 
begin 

if  ( BYPASS! TOKEN_ARRAY  1  I  then 

if  ! ARRAY_TYPE_0EFINITION  I  then 

if  ( BYPASS! TOKEN_ASSIGNMENT  I )  then 
if  (EXPRESSION)  then 
null* 
else 

SYNTAX_ERROR( "Constant  term"  )  * 
end  if*  — •  if  expression  statement 

end  if*  --  if  bypass! token_assignment ) 

else 

SYNTAX_ERROR( "Constant  term"  )  * 

end  if*  —  if  array_type_def inition 

if  ( BYPASS! TOKEN.SEMICOLON  ) )  then 
return  ( TRUE  )  > 

else 

SYNT AX_E RROR ( "Constant  term"  )  * 

end  if*  —  if  bypass! token.semicolon ) 

elsif  ( BYPASS! TOKEN_ASSIGNMENT ) )  then 
if  (EXPRESSION)  then 

if  < BYPASS! TOKEN_SEMICOLON ) )  then 
return  ( TRUE  )  * 
else 

SYNT AX_E RROR! "Constant  term"  )  * 

end  if*  —  if  bypass) token_semicolon ) 

else 

SYNT AX_E RROR ( "Constant  term"  )  > 

end  if*  —  if  expression  statement 

elsif  (NAME)  then 

if  ( IDENTIFIER_TAIL )  then 
return  ( TRUE  ) ) 

else 

SYNT AX_E RROR! "Constant  term"  ) * 

end  if*  —  if  identif ier_tail  statement 

else 

return  ( FALSE  )  * 

end  if*  —  if  bypass! token_array ) 

end  CONSTANT_TERM» 


—  if  name  statement 
—  if  bypass! token_semicolon ) 
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—  IDENTIFI£R_TAIL  — >  [CONSTRAINT  ?]  t:=  EXPRESSION  ?J  ) 

—  — >  [  rsnamas  NAME  ?  1  ) 

function  IDENTIFIER_TAIL  return  boolean  is 
begin 

if  (CONSTRAINT)  then 
null  ) 

end  i f  >  —  if  constraint  statement 

if  < BYPASS! TOKEN_RENAMES  )  >  then 
if  (NAME)  then 
null) 

else 

SYNTAX_ERROR( "Identifier  tail")) 
end  if)  —  if  name  statement 

end  if)  —  if  bypass! token_renames  I 

if  ( BYPASS! TOKEN_iSSIGNMENT  II  then 
if  (EXPRESSION!  then 
null) 
else 

SYNT AX_E RROR ( "Identifier  tail"  )) 
end  if)  —  if  expression  statement 

end  if)  —  if  bypass! token_assignment ) 

if  ( BYPASS! TOKEN_SEMICOLON )  I  then 
return  (TRUE)) 
else 

return  (FALSE)) 

end  if)  —  if  bypass! token  semicolon) 

end  IDENTIFIER_TAIl) 


—  PARAMETER_SPECIFICAriON  — >  IDENTIFIER_LIST  :  MODE  NAME  [:*  EXPRESSION  ?] 
function  PARAMETER_SPECIFICATION  return  boolean  is 
begin 

if  ( IOENTIFIER_LIST )  then 

if  ( BYPASS! TOKEN_COLON ) )  then 
if  (MODE)  then 

if  (NAME)  then  --  check  for  type_ma rk 

if  ( BYPASS! TOKEN_ASSIGFWENT ) )  then 
if  (EXPRESSION)  then 
null) 

else 

SYNT AX_E RROR ( "Parameter  specification"  ) ) 
end  if)  —  if  expression  statement 

end  if)  —  if  bypass! token_assignment ) 

return  (TRUE)) 

else 

SYNTAX_ERROR( "Parameter  specification"  ) ) 
end  if)  —  if  name  statement 

else 

SYNTAX_ERROR( "Parameter  specification”  ) ) 
end  if)  —  if  mode  statement 

else 

SYNTAX_ERROR( "Parameter  specification" ) ) 
end  if)  —  if  bypass!  token_coion ) 

else 

return  (FALSE)) 

end  if)  —  if  identif ier_list  statement 

end  PARAMETER.SPECIFICATION) 


—  IDENTIFIER_LIST  — >  identifier  [>  identifier]* 
function  IDENTIFIER_LIST  return  boolean  is 
begin 

if  (BYPASS! TOKEN_IDENTIFIER ) )  then 
while  ( BYPASS! TOKEN_COMMA  )  )  loop 

if  not  ( BYPASS! TOKEN.IDENTIFIER )  )  then 
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SYNTAX_ERROR( "Identifier  list”)* 

end  if )  —  if  not  bypass! token_identifer )  statement 

and  loop ) 
paturn  ( TRUE  )  ) 

else 

paturn  ( FALSE  )  ) 

end  if  i  --  if  bypass) token_identif ier )  statamant 

and  IDENTIFIER_LIST ) 


—  MODE  — >  tin  ?] 

—  — >  in  out 

—  >  out 

function  MODE  paturn  boolean  is 
begin 

if  (8YPASSI TOKEN. IN >1  then 

if  ( BYPASS! TOKEN_OUT  1  )  then 
null* 
and  if ) 

alsif  (  BYPASS!  T0KENJ3UT  )  )  then 
null) 
end  if) 

return  ( TRUE  ) ) 
end  MOOE ) 


—  DESIGNATOR  — >  identifier 

— >  str ing_litaral 
function  DESIGNATOR  return  boolean  is 
begin 

if  ( BYPASS! TOKEN_IDENTIFIER  )  )  then 
return  (TRUE)) 

elsif  ( BYPASS! TOKEN_STRING_LITERAL  I)  then 
return  (TRUE)) 
else 

return  I  FALSE >( 
end  if) 

end  DESIGNATOR) 


—  SIMPLE.STATEMENT  — >  null  ) 

— >  ASSIGNMENT_OR_PROCEDURE_CALL 

—  >  exit  EXIT_ST ATEMENT 

— >  return  RETURN_ST ATEMENT 
-->  goto  GOTO_STATEMENT 
-->  delay  DEL A Y_ST ATEMENT 

—  >  abort  ABORT_ST ATEMENT 
-->  raise  RAISE_ST ATEMENT 

function  SIMPLE_ST ATEMENT  return  boolean  is 
begin 

if  ( BYPASS! TOKEN_NULL  )  )  then 

if  1  BYPASS! TOKEN_SEMICOLON ) )  then 
return  ( TRUE  ) ) 

else 

SYNTAX_ERROR( "Simple  statement")) 
end  if ) 

alsif  ( ASSIGNMENT_OR_PROCEDURE_C ILL  )  then  —  includes  a  check  for  a 
return  (TRUE))  —  code  statement  and  an 

entry  call  statement. 

alsif  ( BYPASS! TOKEN_EXIT ) )  then 
if  I EXIT.STATEMENT )  then 
return  ( TRUE  ) ) 

else 

SYNTAX_ERROR( "Simple  statement")) 
and  if ) 

alsif  ( BYPASS! TOKEN_RETURN ) )  then 


if  (  RETURN.STATEMENT  )  then 
return  (  TRUE  )  i 

•  ls« 

SYNTAX.ERROR! "Simple  s ta temen t "  )  ! 
end  if! 

alsif  ( BYPASS! TOKEN.GOTO >  )  than 
if  ( GOTO_STATEMENT )  than 
raturn  ( TRUE  )  I 

alsa 

SYNTAX.ERROR! "Simple  statement" )i 
end  if ! 

alsif  (BYPASSITOKEN.DELAY  I  I  than 
if  ( OELAY.STATEMENT  )  than 
re  turn  I  TRUE  I ! 

else 

SYNTAX. ERROR! "Simola  statement"'! 
and  : f  v 

alsif  ( BYPASS! TOKEN. ABORT i 1  than 
if  1 ABORT.STATEMENT  i  than 
ra  turn  ( TRUE  1 1 

alsa 

SYNTAX.ERROR! "Simpla  statement" U 
and  if  t 

alsif  i BYPASS! TOKEN.RAXSE  I  I  than 
if  I RAISE.ST ATEMENT I  then 
ra  turn  ( TRUE  I  i 

alsa 

SYNTAX.ERRORl "Simola  statement"  1 1 
and  if  I 
alsa 

-aturn  ( FALSE  I i 
ana  if'. 

end  SIMPLE.STATEMENTv 


--  ASSIGNMENT_OR_PROCEDURE_CALL  -->  NAME  :=  EXPRESSION  ! 

-->  NAME  ! 

function  ASSIGNMENT_OR_PROCEDURE_CAU  return  boolean  is 
begin 

i f  ( NAME )  than 

if  ( BYPASS! TOKEN.ASS IGNMENT  II  than 
if  (EXPRESSION!  than 

if  (BYPASS! TOKEN.SEMICOLON I  I  then 

return  (TRUE  1 1  --  parsed  an  assignment  statement 

alsa 

SYNTAX_ERROR( "Assignment  or  procedure  call")! 
end  if!  —  if  bypass! token. semicolon ) 

else 

SYNTAX_ERROR( "Ass ignment  or  procedure  call")! 
end  if!  —  if  expression  statement 

alsif  (BYPASS! TOKEN.SEMICOLON)  I  then 

return  ( TRUE  )  l  --  parsed  a  procedure  call  statement 

else 

SYNTAX.ERROR! "Assignment  or  procedure  call")! 
end  if!  —  if  bypass! toKen.ass ignment  ) 

else 

return  (FALSE)! 

end  ifi  —  if  name  statement 

end  ASSIGNMENT_OR_PROCEDURE_C ALL  1 


return  (TRUE!) 

•  Is* 

SYNT AX_E  RROR ( "Lab*!" 1 ) 

•nd  if)  —  if  bypass) token_right_brack«t  ) 

•Isa 

SYNTAX_ERROR(  "Lab*l" 1 ) 

•nd  i f »  —  if  bypasss) tokan_ identifier  ) 

•  Isa 

return  ( FALSE  1 1 

•nd  if)  —  if  bypass) token_lef t_bracket ) 

•nd  LABEL) 


--  ENTRY_OECLARATION  -->  antry  identifier  C ( DISCRETE.RANGE >  ?1 

[ FQRMAL_P ART  ?i  ) 

•‘unction  ENTRY_OECLARATION  r»tum  oooisan  is 
begin 

if  I  BYPASS) TOKEN_ENTRY  !  1  then 

if  1  BYPASS) TOKEN_IOENTIFIER  I  l  thon 
if  ( BYPASS) TOKEN_LEFT_PAREN  i  I  then 
if  ) DISCRETE_RANGE  )  then 

if  (BYPASS) TOKEN_RIGHT_PAREN) )  then 
null ) 
else 

3YNTAX_ERR0R( "Entry  declaration '  )) 
end  if)  —  if  bypass) token_right  _paren  ) 

else 

SYNT AX_E3R0R( "Entry  declaration" I) 
end  if)  —  if  discrete_range  statement 

•nd  if)  —  if  bypass) token^lef t_paren  ) 

if  ( F0RMAL_3ART 1  then 
null  V 

end  if)  --  jf  formal _part  statement 

if  ( BYPASS) T0KEN_3EMIC0L0N  I  I  then 
return  I  TRUE  I ) 

•Isa 

SYNT AX_ERROR< "Entry  declaration"  ) ) 

•nd  if)  —  if  bypass) token_semicolon ) 

•  Isa 

SYNTAX_ERROR( "Entry  declaration"!) 
end  if)  —  if  bypass) token_ identifier  ) 

•  lse 

return  ( FALSE  1) 

end  if)  --  if  bypass) token_en try  ) 

end  ENTRY_DECLARATION) 


—  REPRESENTATION_CLAUSE  — >  for  NAME  use  record  RECORD_REPRESENTATION_CLAUSE 

— >  for  NAME  use  lat  ?]  SIMPLE_EXPRESSION) 
function  REPRESENTATION_CLAUSE  return  boolean  is 
begin 

if  ( BYPASS) TOKEN_FOR  ))  then 
if  (NAME)  then 

if  I  BYPASS) TOKEN _USE  ) )  then 

if  ( BYPASS)  TOKEN_RECORO_STRL)CTURE  ) )  then 
if  ( RECORD_REPRESENTATION_CLAUSE  )  then 
return  ( TRUE  ) ) 
else 

SYNTAX_ERROR( "Representation  clause"  ) ) 
end  if)  —  if  rocord_representation_clause 

elsif  ( BYPASS) TOKEN_AT  I  I  then 
if  ( SIMPLE_EXPRESSION  )  then 

if  ( BYPASS) TOKEN.SEMICOLON )  )  then 
return  I  TRUE!) 
else 

SYNTAX_ERROR( "Representation  clause"  ) ) 
end  if)  —  if  bypass! token_semicolon ) 
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•  Isa 

SYNTAX.ERROR! "Representation  clause"  )  } 
end  if}  —  if  simple. express ion  statement 

•lsif  (SIMPLE.EXPRESSION)  then 

if  ( BYPASS! TOKEN.SEMICOLON >)  then 
return  ( TRUE ) } 
else 

SYNT AX.E RROR ( "Representation  clause"  )» 
end  if>  --  if  bypass! token.semicolon ) 

else 

SYNTAX.ERROR! "Representation  clause" ) } 
end  if}  —  if  bypass! token  record) 

else 

SYNTAX.ERROR! "Representation  clausa"  ) } 
end  if}  —  if  bypass! token.use ) 

else 

SYNTAX.ERROR! "Representation  clause"  ) } 
and  if}  —  if  name  statement 

else 

return  ( FALSE  ) } 

end  if}  —  if  bypass! token.for ) 

end  REPRESENT ATION.CLAUSE } 


—  RECORD.RE PRESENT ATION.CLAUSE  -->  tat  mod  SIMPLE.EXPRESSION  ?] 

[NAME  at  SIMPLE.EXPRESSION  range  RANGES!* 
end  record  } 

function  RECORD.RE  PRESENTATIONS LAUSE  return  boolean  is 
begin 

if  I  BYPASS! TOKEN. AT ))  then 

if  ( BYPASS! TOKEN.MOD  I  I  then 
if  <  SIMPLE.EXPRESSION 1  then 
null } 
else 

SYNT AX_E RROR! "Record  representation  clause")} 
end  if}  --  if  simple.expression 

else 

SYNT AX.ERROR! "Record  representation  clause")} 
end  if}  --  if  bypass! token.mod ) 

end  if}  —  if  bypass! token.at ) 

while  (NAME)  loop 

if  ( BYPASS! TOKEN. AT  ) )  then 

if  ( SIMPLE.EXPRESSION )  then 

if  ( BYPASS! TOKEN.RANGE ) )  then 
if  (RANGES)  then 
null} 
else 

SYNT AX.E RROR! "Record  representation  clause")} 
end  if}  —  if  ranges  statement 

else 

SYNTAX.ERROR! "Record  representation  clause”)} 
end  if}  —  if  bypass! token.range ) 

else 

SYNTAX.ERROR! "Record  representation  clause")} 
end  if}  —  if  simple.expression 

else 

SYNTAX.ERROR! "Record  representation  clause")} 
end  if}  —  if  bypass! token.at ) 

end  loop} 

if  ( BYPASS! TOKEN.END ) )  then 

if  (BYPASS! TOKEN.RECORD.STRUCTURE ) )  then 
if  ( BYPASS! TOKEN.SEMICOLON))  then 
return  (TRUE  1 } 

else 

SYNTAX.ERROR! "Rr ;ord  representation  clause")} 
end  if}  —  if  bypass! token.semicolon ) 

else 

SYNTAX.ERROR! "Record  representation  clause")} 


•nd  i f »  —  if  bypass! tok«n_r*cord_struetur« ) 

•Isa 

psium  (  FALSE  ) » 

•nd  if i  --  if  bypass! tokan_ and) 

•nd  RECORD_REPRESENTATION_CLAUSE l 

•nd  PARSE R_2  > 
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DESCRIPTION:  This  package  contains  thirty-five  functions 

that  make  up  the  baseline  productions  for  our  top-down,  -- 
—  recursive  descent  parser.  Eacn  function  is  preceded 

by  the  grammar  productions  they  are  implementing. 


with  PARSER.*,  BYPASS.^UNCTION,  HALSTEAD.METRIC ,  GLOBAL.PARSER ,  GLOBAL* 
use  PARSER.4 ,  BYPASS.FUNCTION ,  HALSTEAD.METRIC,  GLOBAL.PARSER,  GLOBAL * 


package  PARSER.3  is 

function  SUBTYPE.INOICATION  return  boolean* 

function  ARRAY.TYPE.OEFINITION  return  boolean  1 

function  CHOICE  >-eturn  boolean  * 

function  ITERATICN.SCHEME  return  boolean* 

function  LOCP.PARAMETER.SPECIFICATION  return  boolean* 

function  EXPRESSION  return  boolean* 

function  RELATION  return  boolean* 

Function  RELATION_'rAIL  return  boolean* 

‘unction  3IMPLE.EXPRESSI0N  return  boolean* 

Function  3IMPLE.EXPRESSION.TAIL  return  aooiean* 

‘unction  TERM  return  boolean* 
function  FACTOR  return  boolean* 

Function  PRIMARY  return  boolean* 
function  CONSTRAINT  return  boolean* 

function  F LOAT ING_OR_FIXE D.POINT.CONSTRAINT  return  boolean* 
function  INDEX.CONSTRAINT  return  boolean* 
function  RANGES  return  boolean* 
function  AGGREGATE  return  boolean* 
function  COMPONENT.ASSOCIATION  return  boolean* 
function  ALLOCATOR  return  boolean* 
function  NAME  return  boolean) 
function  NAME.TAIL  return  boolean* 
function  LEFT_PAREN_NAME_TAIL  return  boolean* 
function  ATTRIBUTE.DESIGNATOR  return  boolean* 
function  INTEGER_TYPE_OEFINITION  return  boolean* 
function  DISCRETE.RANGE  return  boolean) 
function  EXIT.STATEMENT  return  boolean* 
function  RETURN.STATEMENT  return  boolean* 
function  GOTO.STATEMENT  return  boolean* 
function  DELAY.STATEMENT  return  boolean* 
function  ABORT.STATEMENT  return  boolean* 
function  RAISE.STATEMENT  return  boolean* 
end  PARSER.3* 


package  body  PARSER.3  is 

—  SUBTYPE .INDICATION  — >  NAME  l CONSTRAINT  ?) 
function  SUBTYPE.INDICATION  return  boolean  is 
begin 

if  (NAME)  then  --  check  for  type.mark 

if  (CONSTRAINT)  then 
null) 
end  if* 

return  ( TRUE  )  * 


•Isa 

re  turn  (  FALSE)* 
end  if* 

end  SUBTYPE_INDICATION ) 


—  ARRAY_TYPE_DEFINITION  — >  < INDEX.CONSTRAINT  of  SU8TYPE_INDICATI0N 

—  this  function  parses  both  constrained  and  unconstrained  arrays 
function  ARRAY_TYPE_OEFINITION  return  boolean  is 

begin 

if  ( BYPASS) TOKEN_LEFT_P AREN))  then 
if  ( INOEX_CONSTRAINT  I  then 
if  ( BYPASSl TOKEN.OF  ’  1  then 

if  ! SUBTYPE.INDICATION >  then 
return  I  TRUE  I  * 
else 

3YNTAX_ERR0R( "Array  def inition  '  )t 
and  if*  —  if  subtype_ indication 

else 

SYNTAX_ERRORt "Array  definition"  )  * 
end  if*  --  if  bypass! token_of ) 

else 

SYNTAX_ERROR( "Array  definition"  )  * 

end  if*  —  if  index_constraint  statement 

else 

return  ( FALSE  i  * 

end  if*  —  if  bypass! token_left  _paren  I 

end  ARRAY_TYPE_OE FINITION * 


—  CHOICE  -->  EXPRESSION  C . . 3IMPIS_EXPRESSI0N  ?] 

EXPRESSION  I  CONSTRAINT  ?] 

--  -->  others 

function  CHOICE  return  boolean  is 
begin 

if  (EXPRESSION)  then 

if  ( BYPASS! TOKEN_RANGE_OOTS)  I  then  —  check  for  discrete.range 
if  (SIMPLE_EXPRESSION)  then 
null* 

else 

SYNTAX_ERROR! "Choice"  I  * 

end  if*  —  if  simple_expression  statement 

elsif  (CONSTRAINT)  then 
null* 

end  if*  —  if  bypass  token_range_dots 

return  ( TRUE  )  * 

elsif  ( BYPASS! TOKEN_OTHERS ) )  then 
return  (TRUE)* 

else 

return  (FALSE)* 
end  if  * 
end  CHOICE* 


--  ITERATION, SCHEME  — >  while  EXPRESSION 

— >  for  LOOP_PARAMETER_SPECIFICATION 
function  ITERATION_SCHEME  return  boolean  is 
begin 

if  ( BYPASS! TOKEN_WHI LE  i  )  then 

NESTING.METRIC! HHILE_CONSTRUCT ) * 
if  (EXPRESSION)  then 
return  ( TRUE  )  * 

else 

SYNTAX_ERROR( "Iteration  scheme")* 
end  if  * 

elsif  ( BYPASS! TOKEN_FOR ) )  then 
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NESTING_METRIC ( FOR.CONSTRUCT ) ! 
if  (LOOP_PARAMETER_SPECIFICATION)  than 
return  ( TRUE  )  ! 

elsa 

SYNTAX_ERROR( "Iteration  schama"  ) ! 
and  if  t 

alsa 

return  (FALSE)! 
end  if  t 

and  ITERATION_SCHEME ! 


--  LOOP_PARAMETER_SPECIFICATION  identifier  in  traverse  ?]  DISCRETE.RANGE 

function  LOOP_PARAMETER_SPECIFICATION  raturn  boolean  is 
begin 

if  ( BYPASS! TOKEN_IDENTIFIER 1  I  then 
if  ( BYPASSI TOKEN_IN  I  )  then 

if  I  BYPASS! TOKEN_REVERSE ) I  then 
null  ! 

and  i f  v  —  if  bypass! toKen_revarsa  ) 

if  ( DISCRETE_RANGE  )  than 
return  (TRUE)  I 
alsa 

SYNTAX_ERROR( "Loop  parameter  specification")! 
and  if*  --  if  discrata_range  statement 

else 

SYNTAX_ERROR( "Loop  parameter  specification")! 
end  if!  —  if  bypass! token_in  ) 

elsa 

raturn  (  FALSE)! 

end  if>  --  if  bypass! token_ identifier  ) 

end  LOOP_PARAMETER_SPECIFICATION! 


—  EXPRESSION  — >  RELATION  { RELATIONS AIL  ?1 
function  EXPRESSION  return  boolean  is 
begin 

if  (RELATION)  then 

if  ( RELATION_TAIL )  then 
null! 

and  if!  —  if  ral 

return  (TRUE)! 

else 

return  ( FALSE  )l 

end  if!  —  if  rela 

end  EXPRESSION! 


—  if  relation_tail  statement 


-  if  relation  statement 


—  RELATION  -->  SIMPLE.EXPRESSION  [ SIMPLE_EXPRESSION_TAIL  ?] 
function  RELATION  return  boolean  is 
begin 

if  ( SIMPLE_EXPRESSION )  then 

if  ( SIMPLE_EXPRESSION_TAIL )  then 
null  i 

end  if!  —  if  s i mp le_exp res sion_ tail  statement 

return  (TRUE)I 

else 

return  ( FALSE  ) ! 

end  if!  —  if  simple_expression  statement 

end  RELATION! 


--  RELATION_TAIL  -->  [and  l then  ?1  RELATION  ]* 
-->  [or  (else  ?1  RELATION  ]* 
-->  [ xor  RELATION  1» 


•V  >/vv  .y.  ; 
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function  RELATION_TAIL  return  boolean  is 
begin 

while  ( BYPASS! TOKEN, AND  ) )  loop 
if  ( BYPASS! TOKEN_THEN)>  then 
null* 
end  if) 

if  not  (RELATION)  then 

SYNTAX_ERROR( "Relation  tail")) 
end  if) 
end  loop) 

while  ( BYPASS! TOKEN_OR ))  loop 
if  ( BYPASS! TOKEN_ELS£))  then 
null ) 
end  i f ) 

if  not  (RELATION)  then 

SYNTAX_ERROR(  "Relation  tail")) 
end  if ) 
end  loop) 

while  ( BYPASS! TOKEN_XOR i )  loop 
if  not  (RELATION)  then 

SYNTAX_ERROR( "Relation  tail")) 
and  if) 
end  loop) 
return  (TRUE)) 
end  RELATION_TAIL) 


if  bypass! token, then ) 


if  not  relation  statement 


if  bypass! token_else ) 


if  not  relation  statement 


if  not  relation  statement 


—  SIMPLE.EXPRESSION  -->  C+  ?1  TERM  C BINARY_ADOING_OPERATOR  TERM]* 
-->(-?]  TERM  t BINARY  ADDING_OPERATOR  TERM]* 
function  3IMPLE_EXPRESSI0N  return  boolean  is 
begin 

if  I  BYPASS! TCKEN_PLUS  )  or  BYPASS! TOKEN_MINUS  !  )  then 
if  (TERM)  then 

while  ( BINARY_AOOING_OPERATOR  )  loop 
if  not  (TERM)  then 

SYNTAX_ERROR( "Simple  expression"  ) ) 
end  if)  —  if  not  term  statement 

end  loop) 
return  ( TRUE  ) ) 
else 

SYNTAX_ERROR( "Simple  expression")) 
end  if)  —  if  term  statement 

elsif  (TERM)  then 

while  ( BINARY_ADDING_OPERATOR )  loop 
if  not  (TERM)  then 

SYNTAX_ERROR( "Simple  expression")) 
end  if)  —  if  not  term  statement 

end  loop) 
return  (TRUE)) 
else 

return  (FALSE)) 

end  if)  —  if  bypass! token_plus  )  et  al  statement 

end  SIMPLE_EXPRESSION) 


—  SIMP LE_EXPRESSION_T AIL  — >  RELATIONAL_OPERATOR  SIMPLE_EXPRESSION 

—  >  C not  ?1  in  RANGES 
-->  I  not  ?]  in  NAME 
function  SIMPLE_EXPRESSION_TAIL  return  boolean  is 
begin 

if  (RELATIONAL.OPERATOR )  then 
if  ( SIMPLE_EXPRESSION )  then 
return  (TRUE)) 

else 

SYNTAX_ERROR( "Simple  expression  tail")) 
end  if)  —  if  simple_expression  statement 

elsif  ( BYPASS! TOKEN_NOT )  )  then 
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if  ( BYPASS!  TOKEN.IN))  than 
if  (RANGES)  then 
return  ( TRUE  )  k 

•Is if  (NAME)  th«n  —  ch«ck  for  type.mark 

return  (TRUE)k 

•  Isa 

SYNTAX.ERROR! "Simple  axprassion  tail"  It 
end  ift  —  if  ranges  statement 

else 

SYNTAX_ERROR I "Simple  expression  tail")) 
end  ift  —  if  bypass! token. in )  statement 

•lsif  I  BYPASS! TOKEN.IN))  then 
if  (RANGES)  than 
return  i TRUE J t 

alsif  (NAME)  then  --  check  for  type.mark 

return  ( TRUE  1 1 
else 

SYNTAX.ERROR! "Simple  expression  tail"  )t 
end  ift  —  if  ranges  statement 

else 

return  ( FALSE  )t 

end  ift  —  if  relational.operator  statement 

end  SIMPLE_EXPRESSION_TAILl 


—  TERM  FACTOR  I MULTIPLYING.OPERATOR  FACTOR]* 

function  TERM  return  boolean  is 
begin 

if  ( FACTOR  )  then 

while  ( MULTIPLYING.OPERATOR )  loop 
if  not  (FACTOR)  then 
SYNTAX.ERROR! “Term" I t 

and  ift  —  if  not  factor  statement 

end  loop  t 
return  t  TRUE  )  t 

else 

return  ( FALSE ) t 

end  ift  —  if  factor  statement 

end  TERMt 


—  FACTOR  PRIMARY  [ **  PRIMARY  ?] 

— >  abs  PRIMARY 
— >  not  PRIMARY 

function  FACTOR  return  boolean  is 
begin 

if  (PRIMARY)  then 

if  < BYPASS! TOKEN.EXPONENT  II  then 
if  (PRIMARY)  then 
null  t 
else 

SYNT  AX_E  RROR ( "Factor" I k 

end  ifk  --  if  primary  statement 

end  if i  --  if  bypass! token.exponent  I  statement 

return  ( TRUE  ) k 

•lsif  < BYPASS! TOKEN.ABSOLUTE I )  then 
if  (PRIMARY)  then 
return  (TRUE)k 

else 

SYNT AX_E RROR (  "Factor" ) t 

end  ifk  —  if  primary! abs)  statement 

•  lsif  ( BYPASS! TOKEN.NOT ) )  then 
if  (PRIMARY)  then 
return  ( TRUE  )  k 

else 

SYNT AX_E RROR! "Factor"  I  k 

end  ifk  --  if  primary(not)  statement 


--  if  primary(not)  statement 


elsa 

return  ( FALSE)) 
and  if) 
end  FACTOR) 


—  if  primary  statement 


—  PRIMARY  — >  numarie_literal 
— >  null 

— >  string_literal 
— >  new  ALLOCATOR 
— >  NAME 
— >  AGGREGATE 

function  PRIMARY  return  boolean  is 
begin 

if  ( BYPASS1 TOKEN_NUM£RIC_LITERAL I  I  then 
return  <  TRUE  ) ) 

elsif  l BYPASS! TOKEN_NULL )  I  than 
return  l TRUE  ! ) 

elsif  < BYPASS! TOKEN_STRING_LITERAL  )  I  than 
return  (TRUE)) 

elsif  ( BYPASS! TOKEN_NEW))  then 
if  (ALLOCATOR)  then 
return  ( TRUE  ) ) 
else 

SYNT  AX_c  RROR ( "Primary" 1) 


end  if ) 

elsif  (NAME)  then 
return  ( TRUE  I ) 
elsif  (AGGREGATE)  then 
return  i TRUE ) ) 
a  is  a 

return  I  FALSE  I  > 
and  i f ) 
end  PRIMARY) 


—  if  allocator  statement 


if  bypass) token_ieft_paren i 


--  if  ranges  statement 


—  CONSTRAINT  — >  range  RANGES 
--  -->  range  O 

-->  digits  FLOATING_OR_FIXED_POINT_CONSTRAINT 
delta  FLOATING_OR_FIXED_POINT_CONSTRAINT 
— >  ( 1NOEX_CONSTRAINT 

fieiction  CONSTRAINT  return  boolean  is 
begin 

if  i BYPASS! TOKEN_RANGE I )  then 
if  (RANGES)  then 
return  (TRUE)) 

elsif  ( BYPASS! TOKEN_BRACKETS  I  I  then  --  check  for  <>  when  parsing 

return  (TRUE!)  --  an  uxonstrained  array 

else 

SYNT  AX_E  RROR I "Constraint" )) 

end  if)  --  if  ranges  sta 

elsif  (BYPASS! TOKEN_OIGITS  )  I  or  else  IBYPASSITOKENOELTA  I  I  then 
if  ( F UOA T ING_OR _ F IXE D_POINT _CONST R A INT  I  then 
return  ( TRUE  I ) 

elsa 

SYNT AX_ERROR( "Cons  t ra int"  I l 
end  i f ) 

elsif  l BYPASSl TOKEN  LEFT  PAREN  I  I  then 
if  I  INDEX  CONSTRAINT  I  then 
re  turn  I  TRUE  !  i 

else 

SYNT AX  ERRORi  "Constraint"  U 

end  i  f  i 

else 

return  ! f ALOE  I i 
end  i * ) 

end  CONSTRAINT  v 


ss<y> 


—  FLOATING_OR_FIXED_POINT_CONSTRAINT  — >  SIMPLE.EXPRESSION  t rang*  RANGES  ?] 
fiction  FLOATING.OR.FIXEO.POINT.CONSTRAINT  ritum  boolean  is 
begin 

if  (SIMPLE.EXPRESSION)  than 

if  ( BYPASS! TOKEN.RANGE  )  )  than 
if  (RANGES)  than 
null  t 

alsa 

SYNTAX_ERROR(  "Floating  or  fixed  point  constraint"  )  i 
and  if i  —  if  ranges  statement 

end  i f  v  —  if  bypassl token_range  ) 

return  I  TRUE  I  1 

alsa 

return  I  FALSE  )  i 

and  ifi  --  if  simple.axpression  statement 

and  F LOAFING. OR. FIXEO.POINT.CONSTR A INT ( 


--  XNOEX_CONSTRAINT  -->  OISCRETE_RANGE  I,  DISCRETE_RANGE  1*  ) 
flection  INOEX_CONSTRAINT  return  boolean  is 
begin 

if  ' OISCRETE.RANGE  I  than 

while  (BYPASSI TOKEN.COMMA  I  I  loop 
if  not  i DISCRETE .RANGE  I  than 

SYNTAX. ERROR!  "Index  cons tra int"  I  \ 
and  ifv  --  if  not  discreta.range 

end  looo  i 

if  '  BYPASSI "OKEN.PIGHT.PAREN  I  (  than 
return  ( TRUE  > 1 

alsa 

SYNTAX.ERRORi "Index  constraint"  )l 

end  ifi  --  if  bypassl token.right.paren ) 

else 

return  ( FALSE  1 1 

end  ifi  —  if  discrete_range  statement 

end  INOEX.CONSTRAINTi 


--  RANGES  --■*  SIMPLE  .EXPRESSION  1  .  .  SIMPLE.EXPRESSION  ?1 
finction  RANGES  return  boolean  is 
begin 

if  ( SIMPLE.EXPRESSION  l  then 

if  ( BYPASSI TOKEN.RANGE.OOTS  I  I  than 
if  (SIMPLE.EXPRESSION)  then 
null  i 

else 

SYNT AX.ERRORl "Ranges"  )  > 

end  i f i  --  if  s imple.express ion  statement 

end  if  i  --if  bypassl  token.ranga.dots  ) 

re  turn  ( TRUE  1 1 

else 

return  ( FALSE  1 1 

and  ifi  --  if  s  ins>  le.express  ion  statement 

end  RANGES i 


--  AGGREGATE  -->  I  COMPONENT .ASSOC  I  AT  ION  t,  COMPONENT. ASSOCIATION  )*  1 
firctlon  AGGREGATE  return  boolean  is 
beg  i  n 

if  (BYPASS!  TOKEN. LEFT  PAREN  i  i  then 
if  (COMPONENT  ASSOCIATION!  tt-en 

while  (BfPASS)  TOKEN  COMMA  i  i  loop 

if  not  (COMPONENT  ASSOCIATION!  then 


■  V  'A'.'.  AV, 


SYNTAX_ERROR( "Aggregate" 
and  i-f » 
and  loop  * 

if  ( BYPASS!  TOKEN_RIGHT_PAREN ) ) 
return  (TRUE)* 

alsa 

SYNT AX_E RROR  (  "Aggregate" )  * 
end  if* 

alsa 

SYNT AX_ERROR(  "Aggregate" H 
end  if* 
else 

return  ( FALSE )* 
end  if* 

end  AGGREGATE  l 


—  if  not  component  association 

then 

—  if  bypass! token_right_paren > 

—  if  component_association  statement 
—  if  bypass! token_laf t_paren  ) 


—  COMPONE NT. ASSOC I AT I ON  — >  [CHOICE  C  CHOICE J»  =>  ?]  EXPRESSION 
function  CCMPON£NT_ASSOCIATION  return  boolean  is 
begin 

if  (CHOICE)  then 

while  1  BYPASS! TOKEN_BAR ) )  loop 
if  not  (CHOICE)  then 

SYNTAX_£RROR< "Component  asociation"  )  * 
end  ifv 
end  loop* 

if  l BYPASS! TOKEN_ARROW  I  )  then 
if  (EXPRESSION)  then 
null  i 


else 

SYNT  AX_ ERROR! "Component 
end  if l 
end  i f i 

return  (TRUE)* 

else 

return  (FALSE)* 
end  if* 

and  COMPONENT  .ASSOCIATION* 


asociation"  )  * 

—  if  expression  statement 
—  if  bypass! token.arrow ) 


—  if  choice  statement 


—  ALLOCATOR  — >  SUBTYPE.INDICATION  l ’AGGREGATE  ?J 
function  ALLOCATOR  return  boolean  is 
begin 

if  (SUBTYPE.INDICATION)  then 

if  (BYPASS! TOKEN  APOSTROPHE ) I  then 


if  (AGGREGATE)  then 
null* 

else 

SYNT AX_E RROR ( "Allocator" I  * 
end  if* 
and  if  * 

return  (TRUE)* 

else 

return  (FALSE)* 
end  if  * 

end  ALLOCATOR* 


—  if  aggregate  statement 
—  if  bypass! token.apostrophe  ) 


—  if  sub type. indicat  ion  statement 


--  NAME  identifier  [NAME.TAIL  ?] 

character.li teral  [NAME.TAIL  ?] 
string.l:  leral  [NAME.TAIL  ?J 
function  NAME  return  boolean  is 
begin 

if  (BYPASS! TOKEN.IOENTIFIER  )  I  then 
if  (NAME.TAIL)  then 
null  * 
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and  if) 

return  (TRUED 

elsif  ( BYPASSt  TOKEN_CHARACTER_LITERAL  ) )  than 
if  <NAME_TAIL I  than 
null) 
end  if) 

return  ( TRUE  )  ) 

alsif  ( BYPASSf  TOKEN_STRING_LITERAL  ) )  than 
if  (NAME  TAIL)  than 
null) 
and  if) 

return  (TRUE)) 
alsa 

return  ( FALSE  ) ) 
end  if ) 
end  NAME; 


—  NAME_TAIL  — >  ( LEFT_PAREN_NAME_TAIL 

— >  .SELECTOR  (NAME.TAILl* 

—  >  'AGGREGATE  (NAME_TAIU* 

-->  ' ATTRIBUT£_OESIGNATOR  [NAME_TAIL  1* 

function  NAME_TAIL  return  boolean  is 
begin 

if  l BYPASSl TOKEN_LEFT_PAREN  )  I  then 
if  ( LEFT_PAREN_NAME_TAIL  )  then 
return  (TRUE)) 

else 

return  <  FALSE  ) ) 

end  if)  —  if  lef  t_.oaren_name_tail 

alsif  i BYPASSl TOKEN_PERIOO  I  I  then 
if  (SELECTOR)  then 

while  (NAME_TAIL)  loop 
null ) 
end  loop ) 
return  (TRUED 
else 

SYNTAX_ERROR( "Name  tail")) 

and  if)  —  if  selector  statement 

alsif  ( BYPASSl TOKEN_ APOSTROPHE))  then 
if  (AGGREGATE)  then 

while  (NAME_TAILI  loop 
null ) 
end  loop  > 
return  (TRUE)) 

elsif  (ATTRIBUTE.OESIGNATOR)  then 
while  (NAME_TAIL)  loop 
null) 
end  loop) 
return  ( TRUE  ) ) 
else 

SYNTAX_EPROR( "Name  tail")) 

end  if)  —  if  aggregate  statement 

else 

return  (FALSE)) 

end  if)  —  if  bypass! token_lef t_paren ) 

end  NAME_TAIL ) 


—  LEFT_PAREN_NAME_TAIL  — >  [ FORMAL.PARAMETER  ?)  EXPRESSION  [..EXPRESSION  ?] 

(,  [FORMAL.PARAMETER  ?J  EXPRESSION  [..EXPRESSION  ?  11* 
)  INAME.TAILI* 

function  L£FT_PAREN_NAME_TAIL  return  boolean  is 
begin 

if  ( FORMAL_PARAMETER )  then  —  check  for  optional  formal  parameter 

null)  --  before  the  actual  parameter 

end  if)  —  if  formaloarameter  statement 


if  (EXPRESSION)  than 

if  (BYPASS! TOKEN. RANGE_OOTS ))  than 
if  not  (EXPRESSION)  than 

SYNTAX_ERROR( "Lef t  paran  nama  tail"  It 
and  ifl  —  if  not  expression  statement 

and  if t  —  if  bypass! token_ range  dots) 

while  ( BYPASS!  TOKEN_CO»*!A ) )  loop 
if  I FORMAL_PARAMETER )  than 
nullt 

and  if)  —  if  formal_parametar  sta tenant 

if  not  (EXPRESSION)  than 

SYNTAX_ERRORI "Lef t  paran  name  tail")) 
end  if)  —  if  not  expression  statement 

if  ) BYPASS! TOKEN_RANGE_OOTS ) 1  than 
if  not  (EXPRESSION)  then 

SYNTAX_ERRQRI  "Lef t  oaren  name  tail")) 
end  if)  —  if  not  expression  statement 

end  if)  —  if  bypass)  toKan_r-ange_dots  i 

end  loop) 

if  ( BYPASSl TOKEN_RIGHT_PAREN I l  then 
while  t NAME _T AI L  )  loop 
null ) 
end  loop  t 
return  ( TRUE  )  t 
else 

-stum  (  FALSE  )  t 

end  if)  —  if  oypassi  toKan_ri^»t  _p»renl 

els  if  ( DISCRETE _RANGE  )  then 

if  i BYPASSl TOKEN_RIGHT_PAREN I  I  then 
wnila  iNAME_TAILi  loop 
null  t 
and  loop) 
return  (  TRUE  I  > 
else 

SYNTAX_ERRORt “Lef t  paran  name  tail"  I) 
end  if)  —  if  bypass! toKen_ right _paren  I 

else 

return  ( FALSE  1 ) 

end  if)  —  if  expression  statement 

and  LEFT_PAREN_NAME_TAIL ) 


--  ATTRIBUTE_OESIGNATOR  — >  identifier  l ( EXPRESSION  )  ?) 

—  >  range  1 1 EXPRESSION  )  ?) 

digits  [(EXPRESSION)  ?} 

-->  delta  [(EXPRESSION)  ?1 
function  ATTRIBLTTE_DESIGNATOR  return  boolean  is 
begin 

if  t BYPASSl TOKEN.IDENTIFIER  )  )  or  else  I BYPASSl TOKEN  RANGE))  then 
if  ( BYPASSl TOKEN_LEFT_PAREN  )  )  then 
if  (EXPRESSION)  then 

if  ( BYPASSl TOKEN_RIGHT_PAREN)  I  then 
null) 
else 

SYNT AX_ E RROR I "Attribute  designator"  ) ) 
and  if)  —  if  bypass! token_r ight_paren  )  statement 

else 

SYNT AX_E RROR ( "Attribute  designator" 1) 
end  if)  --  if  axpression  statement 

and  if)  --  if  bypass! tokan_ laf t_paren  I  statement 

return  (TRUE)) 

elsif  I  BYPASS! TOKEN_DIGITS ) I  or  else  I  BYPASSl  TOKEN_OELTA  I  )  then 
if  ( BYPASSl TOKEN_LEFT_PAREN  1  I  then 
if  (EXPRESSION!  then 

if  I BYPASSl TOKEN_RIGHT_P AREN  I  I  then 
null) 
else 

SYNT AX_E RROR! "Attribute  des igna tor”  ) ) 


if  bypass! tokan_right_paren )  statement 


and  if  i 

else 

SYNT AX_E  RROR 1 "Attribute  designator"  )  i 
and  i f v  --  if  axpres *ion  statement 

and  ift  --  if  bypass! token_lef t_paren )  statement 

raturn  ( TRUE  )  i 

alsa 

raturn  ( FALSE  1 l 

and  ifi  —  if  bypass! toKen_ident if iar  )  statamant 

and  ATTRIBUTE-OESIGNATORi 


--  INTEGER .TYPE .DEFINITION  -->  range  RANGES 
■•unction  INTEGER.TVPE _3E F INI TION  raturn  boolean  is 
begin 

if  i BYPASS! TOKEN. RANGE  It  than 
if  i RANGES  i  then 
raturn  I  TRUE  '  I 

alsa 

SYNTAX_ERRCRI "Intagar  type  def ini t ion”  1 1 
end  i f i 

alsa 

raturn  I  FALSE  I  l 
end  i f , 

and  INTEGER_tYPE_OEF:nITIONi 


--  OISCRE-E  RANGE  — >  RANGES  ! CONST RAINT  ’ ] 
function  0  ISC  RE  T  E  .  RANGE  raturn  ooolean  is 
begin 

1 f  I  RANGES  i  then 

if  i  CONSTRAINT'  than 
nu  1 1  1 

end  i f  v  --if  constraint  statement 

raturn  I  TRUE  )  1 

alsa 

raturn  ( FALSE  )  i 

end  ifi  --  if  ranges  statement 

and  OISCRETE.RANGE  I 


--  EXIT. STATEMENT  -->  (NAME  ?]  (when  EXPRESSION  ?]  i 
function  EXIT_ST ATEMENT  return  boolean  is 
begin 

i  f  I  NAME  I  then 
null  i 

end  ifi  --  if  name  statement 

if  ( BYPASS! TOKEN.WHEN  II  then 
if  (EXPRESSION!  then 
nul  1 1 

else 

SYNT AX_ERROR< "Exit  statement"  1 1 

end  ifi  —  if  expression  statement 

and  ifi  --if  bypass! token.when  ) 

if  ( BYPASS! TOKEN.SEMICOLON  )  I  then 
return  ( TRUE  1 1 

else 

raturn  ( FALSE  1 1 

end  ifi  —  if  bypass! token.semicolon  1 

and  EXIT  STATEMENT  t 


if  (EXPRESSION)  than 
null) 
end  if) 

if  ( BYPASS! TOKEN_SEMICOLON ) I  than 
ratum  (TRUE)) 
alsa 

ratum  (  FALSE  ) ) 
and  if ) 

and  RETURN_STATEM£NT ) 


--  GOTO.STATEMENT  — >  NAME  ) 
function  GOTO_STATEMENT  ratum  boolean  is 
bag  in 

if  i NAME  )  than 

if  (  BYPASS!  TOKEN.SEMICOLON)  I  than 
return  l TRUE  )  > 

alsa 

SYNTAX_ERRORI "Goto  statement"  U 

end  if)  —  if  bypass! token_semicolon ) 

else 

ratum  (  FALSE  ) ) 

and  if)  —  if  name  statement 

and  GOTO.STATEMENT) 


--  DELAY_STATEMENT  — >  SIMPLE_EXPRESSION  ) 
function  OELAY_STATEMENT  return  boolean  is 
begirt 

if  I SIMPLE_EXPRESSION  I  than 

if  I  BYPASS! TOKEN_SEMICOLQN  I  I  than 
return  (TRUE)) 

else 

SYNT AX_E RROR ( "Delay  statement" )) 
end  if> 

else 

return  (FALSE)) 
end  if) 

and  DELAY_STATEMENT) 


--  ABORT_ST ATEMENT  -->  NAME  l,  NAME  ]»  ) 
function  ABORT_ST ATEMENT  return  boolean  is 
begin 

if  (NAME  I  then 

while  ( BYPASS! TOKEN_COMMA  )  )  loop 
if  not  ( NAME  I  then 

SYNTAX_ERROR< "Abort  statement")) 
end  if)  —  if  not  name  statement 

end  loop  t 

if  •  BYPASS! TOKEN_SEMICOLON)  I  then 
return  ( TRUE  ) ) 

alsa 

SYNT AX_ERROR( "Abort  statement")) 

end  if)  —  if  bypass! token_semicolon ) 

else 

return  ( FALSE  )  > 

end  if)  --  if  name  statement 

end  ABORT .STATEMENT) 


--  RAISE  _ ST  ATEMENT  (NAME  ?]  ) 

function  RAISE_STATEMENT  return  boolean  is 
begin 

i f  i NAME  )  then 


1V> 


--  if  bypass! tokon_semicolon ) 

—  if  simple_expression  statement 


TITLE: 


AN  ADA  SOFTWARE  METRIC 


—  MODULE  NAME:  PACKAGE  PARSE R_4 

—  DATE  CREATED:  23  JUL  86 

—  LAST  MODIFIED:  04  DEC  86 

—  AUTHORS:  LCOR  JEFFREY  L.  NIEOER 

LT  KARL  S.  FAIRBANKS,  JR. 

—  DESCRIPTION:  This  package  contains  seven  functions  that 

—  are  the  lowest  level  productions  for  our  top-down, 
recursive  descent  parser.  each  function  is  preceded 
by  the  grammar  productions  they  are  implementing. 


with  3YPASS. FUNCTION,  3YP ASS_SUPPORT_FUNCTIONS ,  GLOBAL_?ARS£R ,  GLOBAL} 
use  BYPAS3_FUNCTI0N ,  SYPASS.SUPPORT.FUNCTIONS ,  GLOBAL.PARSER ,  GLOBAL} 

package  PARSER_4  is 

function  MULTIPLYING_OPERATOR  return  boolean} 
function  3INARY_ADDING_0PERAT0R  return  boolean} 
function  RELATIONAL.OPERATOR  return  boolean} 
function  ENUMERATI0N_TYPE_3EFINITI0N  return  boolean} 
function  ENUMERATION_LITERAL  return  boolean: 
function  FORMAL_PARAMETER  return  boolean} 
function  SELECTOR  return  boolean} 
and  PARSER.*! 


package  body  PARSE R_4  is 

—  MULTIPLYING_OPERATOR  — >  * 

-->  / 

--  — >  mod 

--  — >  ram 

function  MULTIPLYING_OPERATOR  return  boolean  is 
begin 

if  (BYPASS! TOKEN. ASTERISK)!  then 
return  ( TRUE  ) } 

elsif  < BYPASS! TOKEN.SLASH  )  )  then 
return  ( TRUE  ) } 

elsif  ( BYPASS! TOKEN.MOD ))  then 
return  ( TRUE  ) } 

elsif  < BYPASS! TOKEN.REM 1 1  then 
return  (TRUE)} 
else 

return  ( FALSE  ) } 
end  if } 

end  MULTIPLYING.OPERATOR } 


—  BINARY_AOOING_OP£RATOR  — >  ♦ 

— > 

—  >  i 

function  BINARY_ADDING_OPERATOR  return  boolean  is 
begin 

if  ( BYPASS! TOKEN.PLUS > )  then 
return  I  TRUE  ) } 

elsif  I  BYPASS! TOKEN.MINUS ) )  then 
return  ( TRUE  ) } 

elsif  ( BYPASS! TOKEN.AMPERSANO )  I  then 
return  (TRUE)} 

else 
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and  if* 

and  ENUMERATION.LITERAL* 


—  FORMAL_PARAMETER  — >  identifier  -> 
function  FORMAL_PARAMETER  return  boolean  is 
begin 

IOOK_AHEAD_TOKEN  :=  TOKEN_RECORD_BUFFER( TOKEN_ARRAY_INDEX  +  1)» 
if  ( ADJUST_LEXEMEl LOOK_AHEAD_TOKEN. LEXEME , 

LOOK_AHEAO_TOKEN. LEXEME_SIZE  -  1)  =  -=>“ )  then 
if  ( BYPASS! TOKEN_IOENTIFIER  ) )  then 
if  ( BYPASS! TOKEN.ARROH  ))  then 
return  (TRUE)* 
else 

SYNTAX_ERRCR( "Formal  parameter"  I* 
end  if*  —  if  bypass! token_ar row  1 

else 

SYNTAX_ERRORl  "Formal  parameter11 1  * 

end  if*  —  if  bypass! token_identif ier  ) 

else 

return  (FALSE)* 
end  if  * 

end  FORMAL_PARAMETER  * 


—  SELECTOR  — >  identifier 

—  — >  charactar_literal 

—  -->  string_literal 

—  >  all 

function  SELECTOR  return  boolean  is 
begin 

if  l BYPASS! TOKEN_IOENTIFIERI)  then 
return  (TRUE)* 

elsif  ! BYPASS! TOKEN_CHARACTER_LITERAL ) )  then 
return  ( TRUE  )  * 

elsif  ( BYPASS! TOKEN_STRING_LITERAL ) )  then 
return  (TRUE)* 

elsif  ( BYPASS!  TOKEN_ALD)  then 
return  (TRUE)* 
else 

return  (  FALSE)* 
end  if* 
end  SELECTOR* 


end  PARSER.4* 


—  TITLE:  AN  ADA  SOFTWARE  METRIC 

—  MODULE  NAME:  PACKAGE  SCANNER 

—  DATE  CREATED:  06  JUN  86 

--  LAST  MOOIFIED:  04  NOV  86 

—  AUTHORS:  LCDR  JEFFREY  L.  NIEDER 

LT  KARL  S.  FAIRBANKS,  JR. 

DESCRIPTION:  This  package  reads  each  character  from  the 
input  buffer*  determines  its  token  class  and  calls 
the  appropriate  procedure. 

- »»*»*»»»■»»»■»»*»»»»»*»»»»■»  - 

with  LOW J-EVEL .SCANNER,  NUMERIC,  GET.NEXT.CHARACTER ,  GLOBAL i 
use  L0W.LEVEL.3CANNER,  .NUMERIC ,  GET.NEXT.CHARACTER ,  GLOBAL) 

package  SCANNER  is 

procedure  3ET_NEXT_T0KEN<  TOKEN.RECORD  :  in  out  TOKEN.RECORD.TYPE  ) ) 
end  SCANNER) 


package  body  SCANNER  is 

procedure  GET.NEXT .TOKEN) TOKEN.RECORD  :  in  out  TOKEN.RECORD.TYPE)  is 
peg  in 

LEXEME. LENGTH  :=  1 ) 

Tor  I  in  1..LINESISE  loop 

TOKEN.RECORD. LEXEME) I  1  ’  ') 

end  loop  i 

GETNEXTCHARACTER) NEXT.CHARACTER ,  LOOKAHEAD.ONE.CHARACTER  ) ) 

if  ((NEXT.CHARACTER  in  UPPER.CASE.LETTER )  or 
(NEXT.CHARACTER  in  LOHER.CASE.LETTER  ))  then 
TOKEN.RECORD. TOKEN.TYPE  :=  IDENTIFIER) 

GET.IDENTI FIERI TOKEN.RECORD  ) ) 

elsif  ((NEXT.CHARACTER  =  1  1 )  or 

(character'posl NEXT.CHARACTER  I  in  FORMATORS ))  then 
TOKEN.RECORD. TOKEN.TYPE  : s  SEPARATOR) 

FLUSH.SEPARATORSI TOKEN.RECORD ) ) 

elsif  (NEXT.CHARACTER  in  OIGITS.TYPE  )  then 
TOKEN.RECORD. TOKEN.TYPE  :=  NUMERIC.LIT) 

GET.NUMERIC.LITI TOKEN.RECORD ) ) 

elsif  ((NEXT.CHARACTER  =  and  (LOOKAHEAD.ONE.CHARACTER  =  then 

TOKEN.RECORD. TOKEN.TYPE  :=  COMMENT) 

F LUSH.COMMENT ( TOKEN.RECORD  ) ) 

elsif  (NEXT.CHARACTER  =  '")  then 

TOKEN.RECORO. TOKEN.TYPE  :=  CHARACTER.LIT ) 

GET.CHARACTER.LITt  TOKEN.RECORD  I ) 

elsif  ((NEXT.CHARACTER  =  *  I'  )  or  (NEXT.CHARACTER  =  1  'I  or 
( character ' pos) NEXT.CHARACTER I  in  DELIMITER1  )  or 
(character 'pos( NEXT.CHARACTER I  in  DELIMITER2  •  1  then 
TOKEN.RECORD. TOKEN.TYPE  :=  DELIMITER) 

GET.DE LIMITER! TOKEN.RECORD I ) 

elsif  (NEXT.CHARACTER  =  ""I  then 

TOKEN.RECORD. TOKEN.TYPE  :=  STRING.LIT ) 

GET.STRING.LITI TOKiN.RECORO ) ) 


elsif  (NEXT.CHARACTER  =  '$')  then 

TOKEN.RECORO.TOKEN.TYPE  :=  SEPARATOR >  —input  was  a  blank  line 
TOKEN_RECORD . LEXEME ( CURRENT.BUFFER.INDEX )  :=  '*•» 

NEXT.BUFFER.INDEX  :  =  REFILI _ BUFFER.INDEX ) 

els  it  ( character 'pos(NEXT .CHARACTER  )  =  0  1  then  — first  character  is  null 

TOKEN.RECORD . TOKEN.TYPE  :=  SEPARATOR ( 

NEXT_BUFFER_INDEX  :=  REFILL_BUFFER_XNOEX >  —force  buffer  to  refill 

else 

—  first  character  read  is  not  one  of  the  legal  characters 
TOKEN.RECORD . TOKEN.TYPE  :=  ILLEGAL > 

ERROR.MESSAGE ( TOKEN.RECORD . TOKEN.TYPE  )  j 
end  if > 

token  value  is  an  integer  wnich  corresponds  to  the  token  type's 
position  in  the  toKen  list 

TOKEN .RECORD . TOKEN .VALUE  :=  TOKEN ’ oos( TOKEN. RECORD .TOKEN.TYPE ) i 
TOKEN.RECORD. LEXEME.SIZS  : =  LEXEME.LENGTH  j 
end  GET.NEXT .TOKEN l 

end  SCANNER i 
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